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AVIATION  OFFICER  REQUIREMENTS  STUDY 

I.  INTRODUCTION 

In  the  period  between  1978  and  1980,  the  Navy  experienced 
severe  shortages  of  junior  and  midgrade  Naval  Aviators.  The 
situation  became  so  critical  in  1978  that,  for  a  time,  extra¬ 
ordinary  management  actions  were  required  just  to  assure  a  min¬ 
imal  capability  to  train  new  aviators  in  the  Naval  Air  Training 
Command.  These  actions  included  early  rotation  of  fleet  pilots 
to  the  training  command  (without  replacement)  and  reduction  of 
postgraduate  education  quotas  for  aviators.  These  kinds  of  short 
term  responses,  while  necessary,  are  highly  undesirable  in  the 
long  term  from  the  personnel  management  viewpoint.  In  the  dynam¬ 
ic  process  by  which  the  Navy  develops  senior  officers,  it  is 
difficult  to  compensate  for  lost  opportunities  to  provide  opera¬ 
tional  experience  or  education  to  young  officers.  While  it  is 
theoretically  possible  to  make  up  for  denied  opportunities  later 
in  an  officer's  career,  in  practice  this  can  usually  be  done  only 
at  the  expense  of  some  other,  more  current  opportunity.  Given 
such  a  choice,  both  the  individual  officer  and  the  distribution 
system  will  generally  pursue  the  current  opportunity.  The  net 
result  is  that  the  Aviation  Warfare  Officer  community  will  have 
somewhat  less  operational  experience  and  a  lower  level  of  profes¬ 
sional  education  for  some  time  to  come.  In  addition,  changing 
assignments  and  early  moves  have  undoubtedly  had  an  adverse 
impact  on  both  the  morale  of  junior  officers  and  on  officer 
retention  . 


1 


t-  Mggggtj 


The  problems  evident  in  1978  vere  not  unique.  Surpluses  or 
shortages  of  Aviation  Officers  sufficient  to  cause  dramatic 
changes  in  distribution  patterns  have  occurred  every  5  to  7  years 
since  the  mid  1950s.  In  1955,  there  was  a  shortage  of  aviators; 
in  1961,  a  surplus;  in  1967,  a  shortage;  in  1973,  a  surplus;  and 
in  1979,  another  shortage.  The  phenomenon  is  cyclic  and  is  dri¬ 
ven,  at  least  in  part,  by  forces  outside  the  control  of  manpower 
planners.  However,  the  increasing  severity  of  these  episodes 
over  time  suggests  that  manpower  planners  have  lacked  the  tools 
necessary  to  evaluate  the  long  term  impact  of  their  decisions. 

The  problems  described  above  are  further  complicated  by  the 
fact  that  the  Aviation  Officer  billet  structure  is  not  coordi¬ 
nated  with  career  pattern  considerations.  The  requirements 
determination  methodology  should  reflect  the  importance  of  the 
character  and  sequencing  of  assignments  to  the  development  of  a 
viable  inventory  of  officers.  Current  procedures  do  not  take 
these  factors  into  consideration.  The  following  sections  of  this 
report  describe  the  development  of  a  new  manpower  planning  tool 
which  meets  these  needs  and  provide  some  preliminary  examples  of 
its  application. 

II.  MODEL  DESCRIPTION 

A.  Background 

In  the  United  States  Navy,  the  statement  of  officer  require¬ 
ments  is  multidimensional;  that  is,  the  total  number  of  officers 
required  is  composed  of  subsets  on  two  dimensions  of  interest: 
grade  and  speciality.  Thus,  one  may  speak  of  the  number  of  com- 
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manders  required  by  the  Navy,  the  number  of  Naval  Aviators  re¬ 
quired.  or  the  number  of  Naval  Aviators  who  are  commanders.  To 
manpower  managers,  these  partitionings  of  the  total  requirement 
are  the  focal  points  of  requirements  determination.  Specialities 
(Surface  Warfare,  Submarine  Warfare,  Air  Warfare,  and  the  several 
Staff  Corps)  are  managed  separately,  and  requirements  determina¬ 
tion  within  a  given  speciality  is  largely  independent  of  consid¬ 
eration  of  requirements  for  other  specialities.  Thus,  in  the 
sense  that  requirements  define  inventory  objectives,  it  is  more 
pertinent  to  speak  of  requirements  within  a  speciality  since  this 
is  the  context  in  which  inventory-requirements  relationships  are 
viewed. 

A  significant  consideration  in  the  determination  of  officer 
requirements  is  the  fact  that  nearly  all  additions  to  the  officer 
inventory  are  made  at  the  lowest  grade  level.  Requirements  at 
higher  grade  levels  are  filled  by  promotion  from  lower  grades, 
and  inventory  gains  to  meet  numerical  requirements  must  ultimate¬ 
ly  be  achieved  through  accessions.  For  the  Air  Warfare  special¬ 
ity  the  accession  process  itself  is  unusually  long,  involving  an 
extended  recruiting  and  screening  process  and  a  long,  costly 
undergraduate  training  program.  Planning  lead  times  of  2  to  3 
years  are  required.  Thus,  accession  planning  is  an  important 
adjunct  of  the  Aviation  Officer  requirements  determination 
process. 

A  second  consideration  in  the  Aviation  Officer  requirements 
determination  process  is  the  dynamics  of  inventory  management 
and,  in  particular,  the  character  of  the  inventory  ageing  pro- 
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cess.  Aviation  Officers  are  constantly  being  lost  due  to  retire¬ 
ment,  resignation,  and  other  causes.  The  nature  of  these  losses 
at  any  particular  time  depends  partly  on  past  accessions  and, 
therefore,  on  past  perceptions  of  requirements.  It  follows, 
then,  that  requirements  determination  should  attempt  to  account 
realistically  for  future  losses  from  current  inventories  and, 
where  possible,  should  seek  to  influence  those  losses  in  favor¬ 
able  ways.  This  requires  the  introduction  of  some  elements  of 
career  planning  into  the  requirements  determination  process. 

A  third  consideration  bearing  on  the  determination  of  Avia¬ 
tion  Officer  requirements  is  the  fact  that  Naval  Aviators  and 
Naval  Flight  Officers  are  broadly  classified  by  Undergraduate 
Training  Curricula  (e.g..  Jet  Aviator,  Radar  Intercept  Officer, 
Helicopter  Pilot)  and  by  waapon  system  type  (e.g..  Light  Attack 
Pilot,  Maritime  Patrol  Navigator).  These  two  characteristics 
jointly  define  subcomraunities  in  the  Air  Warfare  speciality.  An 
officer  entering  one  of  these  subcommunities  as  a  result  of 
training/initial  assignment  can  expect  repeated  tours  in  that 
subcommunity.  There  is  very  little  migration  between  subcommun¬ 
ities.  This  suggests  that  it  would  be  useful  to  partition  a  re¬ 
quirements  model  by  subcommunity  in  order  to  ensure  that  sub¬ 
community  requirements  are  accurately  reflected  in  the  total.  In 
addition,  such  a  partitioning  is  particularly  useful  in  a  model 
that  will  be  used  to  assess  the  impact  of  force  level  variations 
on  total  requirements. 

B .  The  Requirements  Statement 


Given  the  considerations  discussed  in  the  previous  subsec¬ 
tion,  one  can  broadly  define  the  structure  and  content  of  an 


Aviation  Office  Requirements  model  as  follows: 


o  It  should  be  specified  at  the  subcommunity  level. 

o  It  should  account  for  constraints  imposed  by  career  path 
considerations . 

o  It  should  be  force  level  driven. 

It  will  be  apparent  that  the  description  of  the  requirements 
model  given  above  envisions  treating  each  subcommunity  as  a 
“slice"  of  the  total  requirement.  For  each  subcommunity  there  is 
an  independent  statement  of  requirements  which  is  internally 
consistent  and  exhaustive  in  the  sense  that  it  specifies  all  of 
the  requirements  to  be  filled  by  officers  in  that  subconununity . 
There  is  also  the  obvious  requirement  that  the  summation  over  all 
subcommunities  should  unambiguously  and  exhaustively  reflect  the 
total  Aviation  Officer  requirement. 

C .  Inventory  Ageing 

In  order  to  properly  model  Aviation  Officer  requirements,  it 
is  necessary  to  establish  a  mechanism  to  represent  the  ageing 
process  for  the  officer  inventory.  The  essence  of  the  ageing 
process  is  captured  by  specifying  year  to  year  losses  from  inven¬ 
tory  in  terms  of  continuation  rate.  Continuation  rate  for  a 
given  cohort  is  defined  as  the  ratio  of  the  current  size  of  the 
cohort  to  the  size  1  year  earlier.  For  the  Aviation  Officer 
Requirements  model,  cohorts  are  identified  by  their  years  of 
aviation  service  (years  since  designation  as  Naval  Aviators  or 
Naval  Flight  Officers). 

Figure  1  provides  a  general  representation  of  the  inventory 
profile  resulting  from  the  operation  of  a  set  of  continuation 
rates  using  accession  cohorts  of  constant  size.  The  figure  con- 
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sists  of  a  series  of  straight  line  segments  connecting  signifi¬ 
cant  points  in  the  inventory  ageing  process.  This  is  the  inven¬ 
tory  component  used  in  the  current  Aviation  Officer  Requirements 
models.  The  principal  features  of  this  component  are  as  follows: 

1.  Minimum  Service  Requirement  (MSR) .  Aviation  Officers 
acquire,  upon  designation,  a  service  obligation  which  is  current¬ 
ly  5  years.  An  entering  cohort  will  experience  a  nominal  attri¬ 
tion  of  5  to  7  percent  prior  to  MSR  due  to  death,  disability,  c 
loss  of  designation. 

2.  MSR  +2.  By  2  years  beyond  MSR,  most  of  the  loss  due  t 
expiration  of  obligated  service  has  occurred.  (Retention  is 
measured  at  this  point,  and  is  defined  as  the  ratio  of  the  number 
of  officers  remaining  at  MSR  +  2  to  the  number  at  MSR  -  1) . 

3.  Career  Stable  Point  (CSP) .  As  loss  rate  moderates  beyond 
MSR  +  2,  the  cohort  enters  the  promotion  zone  for  Lieutenant 
Commander,  which  is  the  first  selection  involving  significant 
numbers  of  fail  selects.  At  approximately  12  years,  most  passed 
over  Lieutenants  will  have  been  separated  and  the  inventory  will 
have  stabilized  to  a  career  force. 

4.  18  Year  Point.  Between  12  and  18  years  of  aviation  ser¬ 
vice,  losses  from  inventory  are  generally  very  low;  typically  1 
percent  per  year.  At  18  years,  passed  over  Lieutenant  Commanders 
begin  to  become  eligible  for  retirement  (at  20  years  of  commis¬ 
sioned  service).  Additionally,  at  about  the  same  time.  Command¬ 
ers  are  selected  for  Captain  and,  upon  promotion,  leav&  the 
inventory.  (Aviation  Officer  requirements  and  inventory  are 
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defined  as  being  in  the  grade  of  0-5  and  below  throughout  the 
Department  of  Defense). 

5.  20  Year  Point.  By  the  twentieth  year  of  aviation  ser¬ 
vice,  losses  due  to  20  year  retirement  and  promotion  have  large¬ 
ly  been  completed  and  the  remaining  inventory  consists  of  passed 
over  Commanders.  This  small  number  of  remaining  officers  experi¬ 
ences  fairly  steady  losses  until  year  26,  when  the  mandatory  re¬ 
tirement  point  for  Commanders  is  reached. 

It  should  be  noted  that  the  above  description  conforms  to  the 
inventory  ageing  process  as  it  existed  before  passage  of  the 
Defense  Officer  Personnel  Management  Act  (DOPMA) .  There  are  a 
number  of  changes  to  the  rules  governing  tenure  of  passed  over 
officers  which  will  probably  have  a  significant  impact  on  the 
historical  inventory  ageing  process.  The  inventory  profile  com¬ 
ponent  in  the  Aviation  Officer  Requirements  model  was  implemented 
to  enable  incorporation  of  changes  in  the  ageing  process  under 
DOPMA  when  the  nature  of  such  changes  becomes  apparent. 

Manpower  planners  tend  to  envision  the  officer  losses  implied 
by  the  plot  of  Figure  1  in  terms  of  the  single  parameter, 
Retention.  A  practical  requirements  model  must  specify  losses  in 
somewhat  more  detail;  in  the  present  case  it  w„s  decided  to  use 
continuation  rate.  (The  continuation  rate  for  year  i  is  the 
ratio  of  the  number  of  officers  remaining  at  the  end  of  year  i  to 
the  number  remaining  at  the  end  of  year  i-1) .  There  are  thus  26 
values  of  continuation  rate  corresponding  to  a  given  retention 
statement.  This  set  can  be  viewed  as  a  vector  of  individual  con¬ 
tinuation  rates  with  a  component  corresponding  to  each  inventory 


year.  Using  the  continuation  vector,  the  number  of  officers 
remaining  in  any  year  can  be  determined  from  the  number  in  any 
other  year.  This  capability  is  essential  for  the  Aviation 
Officer  Requirements  model. 

There  is  still  a  requirement  for  a  mechanism  for  converting 
the  single  parameter  statement  of  Aviation  Officer  Retention  to  a 
continuation  vector.  This  is  done  by  establishing  a  nominal  con¬ 
tinuation  vector  for  a  45  percent  retention  rate,  and  providing  a 
mechanism  for  modifying  that  vector  in  response  to  changes  in 
specified  retention  and/or  MSR,  and/or  Career  Stable  PointA/  • 
Thus,  in  the  actual  implementation  of  the  model,  the  user  can 
substantially  alter  the  shape  of  the  projected  inventory  of 
Figure  1  to  allow  for  examination  of  the  impact  of  a  broad  range 
of  values  for  retention  and  MSR  on  Aviation  Officer  supply. 

D.  Career  Path  Network 

If  the  requirements  determination  process  is  to  adequately 


J./  Given  a  continuation  rate  of  CRq  between  0  years  of 
aviation  service  and  MSRQ,  retention  RQ  and  CSRq  for 
the  baseline  condition,  and  a  modified  condition  specified  by 
Rj.,  MSR]_,  and  CSR]_,  the  following  changes  to  the 

continuation  vector  will  occur: 

Between  MSR^  and  MSR  +  2,  continuation  rate  will  be 
given  by 

(1)  CR  -  (RjyCRojl/2 

Between  MSR^,  +  2,  and  CSR^,  continuation  rate  will  be 
given  by 

(2)  CR  -  CR0((R0  +  R)/2R)-12 

The  exponent  (.12)  in  formula  (2)  above  was  selected  to 
assure  that  movement  of  the  career  stable  point  is  relatively 
lower  than  changes  in  retention.  For  example,  a  33  percent 
change  in  retention  from  .45  to  .30  will  result  in  only  a  24 
percent  drop  in  the  size  of  the  12  year  cohort. 


9 


account  for  the  process  by  which  senior  officers  are  developed  in 
Naval  Aviation,  it  must  incorporate  some  elements  of  career  plan¬ 
ning.  This  fact  has  a  profound  impact  on  the  nature  of  the 
requirements  statement.  The  specification  of  more  senior 
requirements  is,  among  other  things,  a  statement  about  the 
history  of  the  inventory  ageing  process.  Thus,  the  requirement 
for  a  Commander  demands  requirements  at  all  lower  grade  levels 
and,  more  specifically,  implies  the  existence  of  junior  billets 
involving  activities  which  build  the  experience  required  by 
senior  grades. 

The  Aviation  Officer  Requirements  model  accounts  for  the 
interdependence  discussed  above  by  incorporating  career  pattern 
considerations.  More  specifically,  with  Aviation  Officers  parti¬ 
tioned  into  appropriate  subcommunities,  a  set  of  acceptable  ca¬ 
reer  paths  is  identified  and  the  network  of  such  paths  is  defin¬ 
ed.  Figure  2  is  an  example  of  such  a  network. 

Figure  2  presents  a  mechanism  which  classifies  a  given  sub¬ 
community  of  officers  by  activity  and  tour.  Tour  number  refers 
to  the  sequential  position  of  a  given  activity  in  which  an  offi¬ 
cer  may  be  engaged  during  the  series  of  activities  which  consti¬ 
tute  his  career.  Tour  number  increases  from  left  to  right  in 
Figure  2  and  is  given  by  the  second  digit  of  the  node  numbering 
scheme  shown  in  the  diagram.  It  should  be  noted  that,  although 
the  diagram  of  Figure  2  presents  a  time  line  across  the  top  and 
displays  tours  of  uniform  length  (3  years),  the  actual  model 
accommodates  unique  tour  lengths  for  each  arc  of  the  network . 
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The  activities  shown  in  the  left  column  of  Figure  2  represent 
a  classification  of  billets  in  accordance  with  the  general  pur¬ 
pose  which  the  billets  serve.  The  definitions  of  the  categories 
chosen  are  as  follows: 

1.  Fleet  Squadron  (FLEET):  Those  billets  required  to  man 
fleet  squadrons.  These  account  for  about  40  percent  of  Aviation 
Officer  requirements. 

2.  Fleet  Readiness  Squadrons  (FRS):  Those  billets  required 
to  provide  direct  support  to  the  operational  training  of  officers 
and  enlisted  men  within  subcommunities.  These  billets  constitute 
12  to  15  percent  of  the  total  requirement. 

3.  Training  Command  Squadrons  (TRACOM):  Those  billets 
necessary  to  provide  direct  support  to  the  undergraduate  pilot 
and  Naval  flight  officer  training  programs.  These  account  for 
between  5  and  7  percent  of  requirements. 

4.  Research,  Development,  Test,  and  Evaluation  ( RDT&E) : 
Those  billets  in  the  RDT&E  community  which  require  operational 
flying  by  designated  pilots  or  NFOs.  They  represent  between  2 
and  3  percent  of  the  total  requirement. 

5.  Afloat:  Billets  in  ships  company  or  on  afloat  staffs  at 
the  numbered  fleet  level  and  below.  These  involve  approximately 
5  to  7  percent  of  the  total  requirements. 

6.  Professional  Development  (PRODEV):  Student  billets  in 
the  Postgraduate  school  or  war  colleges.  These  include  5  to  7 
percent  of  total  requirements. 
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7.  Other:  Billets  on  major  staffs  and  elsewhere  in  the 
shore  establishment  not  otherwise  identified  above.  These 
comprise  25  to  30  percent  of  the  total  requirements. 

Table  I  contains  a  breakout  of  these  activities  with  billet 
levels  for  pilots  and  NFOs  as  they  existed  at  the  end  of  April 
1981.  It  will  be  noted  that  the  node  numbering  scheme  alluded  to 
above  is  followed,  with  the  first  digit  identifying  the  activity 
and  the  second  (tour)  digit  being  replaced  by  an  X. 

E.  Def initicxi  of  Subcommunities 


As  indicated  previously,  the  definition  of  subcommunities  is 
based  on  weapon  system  classifications.  That  is,  the  traditional 
classifications  of  fleet  aviation  activities  such  as  Fighter 
Squadrons  (VF) ,  Long  Range  Maritime  Patrol  (VP),  or  Helicopter 
Anti-Submarine  Warfare  (HS)  are  used  to  define  communities  for 
which  separate  networks  can  be  constructed.  This  approach  has 
several  advantages: 

1.  Since  the  orientation  is  to  fleet  weapon  systems,  the 
process  of  examining  the  impact  of  fleet  force  level  changes  on 
total  requirements  is  greatly  simplified.  For  example,  one  can 
assess  the  impact  of  increasing  or  decreasing  the  number  of  fleet 
fighter  squadrons  by  analyzing  the  effect  on  one  network  in  the 
mode  1 . 


2.  Direct  training  requirements  (Fleet  Readiness  Squadrons) 
which  constitute  a  significant  part  of  total  requirements  can  be 
associated  with  the  appropriate  weapon  system. 


m 
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uerimtion  of  Activities  for 
Aviation  Officer  Requirements  Mca 


Numoers 


Aooroximate 


Force  and  Force  Support 
Squadrons!/ 

IX 

4112 

1959 

5171 

2. 

Fleet  Readiness 

Squadrons!/ 

IX 

1249 

512 

1761 

3. 

Training  Command 
Squadrons^/ 

3X 

824 

73 

902 

4  . 

RDTsE 

4X 

234 

115 

399 

S  . 

Afloat  (Ships  Company/ 
Afloat  Staffs  )*/ 

SX 

548 

238 

*36 

6. 

Professional  Development 
(PC  School /War  College)!' 

6  X 

327 

136 

463 

7. 

Other  (Staff /Shore)!,/ 

7X 

2312 

1106 

3913 

Total 

10256 

4144 

Motes:  A/lncludes  473  LAHPS  MX  III  Billets  not  in  current 
authorizations. 

y Includes  FSS  Student  Billets, 
i/lncludes  Aviation  Schools  Command. 
i^l30X  Billets  Allocated  70/30  to  Pilot/MFO. 
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3.  The  conventional  classification  of  pilots  and  NFOs  by 
initial  undergraduate  training  pipeline  is  preserved.  This 
allows  accurate  allocation  of  instructor  billets  attributable  to 
Undergraduate  Pilot  Training  (UPT)  and  Undergraduate  Naval  Flight 
Officer  Training  (UNFOT)  requirements. 

In  general,  defined  communities  are  distinguished  by  a  common 
crew  composition  (number  of  pilots  and/or  NFOs  in  the  crew)  and 
crew  factor  (number  of  crews  per  assigned  aircraft) .  These  para¬ 
meters  allow  the  convenient  specification  of  changes  in  Aviation 
Officer  requirements  as  a  function  of  changes  in  force  level  down 
to  the  individual  aircraft.  Some  squadrons,  notably  Fleet  Compo¬ 
site  Support  Squadrons  (VC,  HC)  and  Transport  Squadrons  (VR, 
VRC) ,  operate  multiple  types  of  aircraft  with  differing  crew  com¬ 
positions.  Crew  factors  are  not  meaningful  for  these  communi¬ 
ties.  In  these  cases  Aviation  Officer  requirements  are  stated 
explicitly  by  grade  and  designator.  For  the  purposes  of  this 
modeling  effort,  these  squadron  types  are  aggregated  into  three 
communities  designated  Force  Support  (jet).  Force  Support  (prop), 
and  Force  Support  (helicopter). 

Table  II  lists  the  communities  covered  in  the  model  and  pro¬ 
vides  some  statistical  data  regarding  community  size  and  composi¬ 
tion  as  reflected  in  current  manpower  authorizations.  It  should 
be  stressed  that  the  inclusion  of  statistical  data  on  subcommun¬ 
ity  size  is  only  intended  to  provide  estimates  of  scale.  In 
constructing  network  models  for  these  subcommunities,  the  data 
are  generated  using  numbers  of  squadrons  and  crew  factors. 
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TABLE  II 

AVIATION  OFFICER  REQUIREMENTS  3Y  SUB COMMUNITY 


TYPE 

dREW 

RE 

cu:rem= 

COMMUNITY 

AIRCRAFT 

SQUADRONS 

FACTOR 

JT* 

NFO 

TOTAL 

LIGHT  ATTACK  (VA) 

A7E 

24 

1.42 

450 

- 

450 

FIGHTER  (VF) 

F4J/F14A 

24 

1.17 

353 

352 

705 

MEDIUM  ATTACK 

(VAM) 

A6E 

12 

1.14 

200 

198 

398 

AIR  EARLY 

WARNING  ( YAW ) 

E1B/E2C 

12 

1.66 

131 

132 

313 

TACT  ELECT 

WARFARE  ( VAQ) 

EA63 

9 

1.3 

83 

139 

272 

ANTI-SUBMARINE 
WARFARE  (VS) 

S3A 

11 

1.44 

214 

214 

423 

HELICOPTER  ASW 
(HS) 

SH3 

11 

1.66 

242 

• 

242 

CV  SUBTOTAL 

103 

1673 

1135 

2308 

LIGHT  HELI¬ 
COPTER  ASW  (HSL) 

SH2/SH60 

» — 1 

2.0 

745 

- 

745 

MARITIME  PATROL 

('VP) 

P3C 

24 

1.33 

931 

597 

1528 

ELECT  WARFARE/ 
COMM  (VQ) 

EA3B , S?  3A 

4 

142 

173 

315 

EC130 

FORCE  SCPP  JET 
(VR,  VC) 

C9B ,  C2A,  A4 

13 

373 

25 

423 

FORCE  SUPPORT  PROP 

• 

(Cl 10) 

FORCE  SUP?  HELO 

2 

- 

50 

29 

79 

(HC,  HM) 

H47,  3S3 

3 

293 

- 

298 

1S3 

4212 

-959 

51*1 
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Table  II  contains  13  subcommunities .  Four  of  these  contain 
only  pilots  so  that  there  are  potentially  13  pilot  networks  and  9 
UFO  networks  associated  with  this  partitioning  of  the  Aviation 
Officer  population.  This  is  the  subcoramunity  set  used  for  model 
development . 

Employment  of  the  general  model  structure  defined  above 
requires  identification  of  the  network  arcs  which  Aviation 
Officers  can  occupy  and  specification  of  tour  length  for  the 
permissible  arcs.  While  the  computer  program  has  been  designed 
to  allow  variation  of  these  specifications  from  run  to  run,  there 
i3  a  basic  network  configuration  to  which  the  model  defaults  in 
the  absence  of  user  specification.  The  configuration  was  estab¬ 
lished  in  consultation  with  OP132  and  OP59,  and  represents  the 
current  operation  of  the  Officer  Distribution  System  with  respect 
to  Aviation  Officers.  The  general  rules  of  officer  employment 
used  to  define  that  configuration  are: 

o  Fleet  Readiness  Squadrons  are  manned  only  by  officers 
coming  from  Fleet  Squadrons. 

o  All  Officers  begin  second  fleet  tour  no  later  than  the 
twelfth  year  of  service. 

o  Plowback  Instructors  in  the  Training  Command  are 
guaranteed  a  subsequent  fleet  tour . 

o  officers  can  only  have  one  training  command  tour. 

o  A  maximum  of  two  successive  out-of-cockpit  tours  are 
allowed . 

o  Split  Tours  (Fleet  Squadron-Af loa t  or  Afloat-Fleet 
Squadron)  are  not  allowed. 


In  addition  to  these  rules,  it  became  apparent  that  a 
distil  ction  is  drawn  between  Commanders  who  have  not  yet  had 
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squadron  command  and  those  Who  have .  Demand  for  post  command 
tour  officers  is  high  for  afloat  assignments  and  for  many  staff 
positions.  In  order  to  ensure  that  the  model  will  be  able  to 
examine  Commander  requirements  in  this  context,  a  seventh  tour 
was  included  to  embrace  all  possible  assignments  beyond  the  sixth 
tour  (approximately  18  years  of  Aviation  service). 

The  effect  of  the  above  rules  is  to  reduce  the  number  of  per¬ 
missible  arcs  from  the  maximum  of  301  to  173  in  the  final  career 
path  network.  Since  it  is  not  feasible  to  clearly  depict  this 
number  of  arcs  in  a  network  diagram,  Table  III  has  been  prepared 
to  illustrate,  for  each  node  in  the  network,  the  permissible 
precedent  nodes.  Thus  Table  III  actually  represents  a  three 
dimensional  array  covering  activity,  tour  number,  and  precedent 
(source)  activity.  A  table  similar  to  this,  but  including  tour 
length  and  tour  end  time,  constitutes  the  central  record  file  of 
the  computer  program. 


F .  Methodology 

The  original  approach  to  solution  of  the  network  problem 
envisioned  the  specification  of  a  set  of  simultaneous  equations 
with  arc  capacity  as  the  variable,  and  the  solution  of  that  set 
identifying  the  structure  and  magnitude  of  the  requirement.  The 
process  of  defining  that  equation  set  begins  with  identification 
and  quantification  of  relationships  between  activities  on  differ¬ 
ent  arcs  (Planning  Factor  Data),  specification  of  loss  functions 
and  node  balance  relationships  and,  finally,  identification  of 
policy  variables  which  specify  constraints  on  personnel  employ¬ 
ment  (e.g..  Proportion  of  Population  attending  Postgraduate 
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Education).  Theoretically,  enough  equations  can  be  written  to 
provide  one  for  each  arc  capacity;  however  as  the  number  of  arcs 
grows  this  approach  becomes  less  practical  for  a  number  of 
reasons : 

1.  As  the  activity  structure  becomes  progressively  more 
finely  specified,  the  rules  governing  the  flow  of  personnel  be¬ 
come  increasingly  complex.  Thus  one  finds  that  it  becomes  more 
difficult  to  specify  policy  statements  which  are  generally  agreed 
to  just  when  the  increasing  number  of  arcs  demands  additional 
statements. 

2.  More  significantly,  as  the  number  of  arcs  increases  the 
nanpower  on  any  given  arc  decreases.  For  the  network  defined 
above  (173  arcs),  the  manpower  on  most  arcs  for  most  communities 
will  consist  of  only  a  few  bodies.  Cumulative  rounding  errors  as 
arc  capacities  are  adjusted  to  reflect  whole  numbers  of  officers 
can  be  quite  large  and  may  represent  a  significant  portion  of  the 
requirements  statement. 

To  overcome  these  difficulties,  the  approach  to  solving  the 
network  problem  was  changed.  An  iterative  approach  was  adopted 
which  creates  inventory  in  response  to  specific  requirements  and 
distributes  chat  inventory.  Specifically,  the  routine  adopted 
begins  by  identifying  the  requirement  for  Squadron  Commanding 
Officers.  It  then  creates  a  26  year  inventory  which  results  in  a 
sixth  tour  entry  flow  exactly  matching  this  requirement.  This 
inventory  is  then  distributed,  beginning  with  the  first  tour, 
following  the  policy  constraints  adopted  and  the  flow  discipline 
imposed  by  the  network. 
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This  initial  inventory  generally  will  not  meet  all  subcommun¬ 
ity  requirements.  Subsequent  iterations  then  add  accessions  suf¬ 
ficient  to  produce  an  inventory  matching  the  unfilled  portion  of 
the  requirement. 2/  iteration  continues  until  the  accession  re¬ 
quirement  falls  below  1.  Figure  3  illustrates  the  general  logic 
employed  to  accomplish  this.  The  iteration  process  is  actually 
run  in  two  stages.  Initial  requirements  testing  focuses  on  the 
six  specific  activities  of  the  model  (Fleet,  FRS ,  Training  Com¬ 
mand,  RDT&E ,  Afloat,  and  PRODEV).  Testing  at  the  end  of  each 
iteration  focuses  on  these  activities,  and  the  incremental  in¬ 
crease  in  accessions  is  based  on  the  unfilled  portion  of  require¬ 
ments.  When  the  requirements  in  the  six  specific  activities  have 
all  been  satisfied,  testing  at  the  end  of  each  iteration  shifts 
to  the  unfilled  portion  of  the  "Other"  requirement.  This  pro¬ 
vides  an  opportunity  to  examine  the  requirements  statement  as  it 
would  exist  if  all  specific  requirements  were  met  while  limiting 
support  of  the  "Other"  requirement  to  that  which  can  be  met  by 
the  slack  man-years  available  in  the  resulting  inventory. 

In  filling  the  career  path  network  with  the  available  inven¬ 
tory  of  officers,  the  model  is  constructed  to  begin  by  assigning 
the  defined  accession  cohort  in  accordance  with  network  con¬ 
straints.  Following  this,  flows  out  of  the  arcs  in  the  network 
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Given  an  unfilled  Requirement,  R,  the  accession  level,  A, 
required  to  meet  it  (assuming  an  even  distribution  over 
time)  is:  n 

A  =  2R/(  E  (  TT  Ck)  x  (l+ci+1)) 
i=l  k=l 

Where  Ci  *  The  continuation  ratio  from  year  i-1  to  year  i. 
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are  assigned  to  subsequent  network  arcs.  This  procedure  is  fol¬ 
lowed  on  a  tour  by  tour  basis  over  the  seven  tours  of  the  model. 
In  essence  the  model  emulates  the  officer  distribution  process, 
representing  officer  flows  from  tour  to  tour  in  the  network  while 
observing  career  path  constraints  and  accounting  for  losses  from 
inventory  2/ . 

A  straightforward  algorithm  is  used  to  establish  flows  with¬ 
in  a  tour.  Figure  4  illustrates  the  set  of  nodes  for  a  specific 
tour  (J)  and  identifies  the  indexing  scheme  used  in  the  model. 
The  figure  shows  the  geometry  of  the  problem  on  the  left,  and  on 
the  right  provides  an  example  of  the  entries  which  might  ap¬ 
pear  in  the  career  path  network  matrix.  These  entries  give  the 
tour  length  in  months  in  the  first  two  positions.  Following  this 
are  seven  entries  representing  the  respective  arc  capacity  for 
arcs  from  source  nodes  N=l,  N*2,  etc.  The  entry  "NNN"  specifies 


£/  In  general,  the  number  of  officers  available  for  assignment 
at  the  output  of  a  tour  (e.g.  arc  ij)  win  De  given  ays 


F. 

J 


TL 

x  tr  R 
K=1 


t  +  K 


Given  this  flow,  the  number  of  officers  in  the  arc  is: 


Fi  x 


(1+Rt+1+Rt+l(1+Rt+2) 


Rt+lRt+2 (1+Rt+3) 


Rt+lRt+2* ‘ •Rt+TL-l(1+Rt+TL) } 


Where  Fj  =  Output  Flow 
=  Input  Flow 

Rt  *  Continuation  Rate  tor  Year  t 
C j  =  Capacity  of  Arc  ij 

TLJ  =  Tour  Length  Associated  with  Arc  in  question 
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a  source  node  from  which  no  flow  is  permitted.  The  final  entry 
associated  with  each  node  is  the  total  elapsed  time  in  months  to 
node  I,J. 

The  problem  which  the  model  must  solve  involves  taking  a  flow 
out  of  node  N,J-1,  and  allocating  it  to  node  I , J  of  the  current 
tour.  This  is  accomplished  in  a  straight  forward  manner  as 
follows : 

For  each  source  node  (N,J-1): 

1.  Flow  is  allocated  to  permissible  destination  nodes  in 
proportion  to  the  unfilled  requirement.  Destinations  for  which 
N,J-1  is  a  barred  source  receive  zero  allocation. 

2.  Beginning  with  activity  1  (Fleet  Squadrons),  allocated 
flow,  tour  length,  and  continuation  rates  are  used  to  compute  the 
number  of  Aviation  Officers  on  arc  (N,J-1),  (I,J). 

3.  Unfilled  requirements  for  activity  1  are  reduced  by  the 
value  computed  in  (2)  above.  If  that  value  is  greater  than  the 
remaining  unfilled  requirement,  a  surplus  flow  is  computed  and 
added  to  the  allocation  of  the  next  higher  numbered  permissible 
destination  activity. 

4.  The  preceeding  process  is  repeated  in  turn  for  each  des¬ 
tination  activity.  Capacities  are  computed,  unfilled  require¬ 
ments  are  reduced,  and  surplus  flows  are  passed  on  to  succeeding 
activities . 

5.  When  the  last  destination  node  (1=7)  is  reached,  the 
source  node  is  incremented  by  1  and  the  process  is  repeated. 

The  procedure  described  above  is  repeated  tour  by  tour 
through  the  seven  tours  contained  within  the  model.  It  will  be 
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evident  that  this  procedure  is  an  emulation  of  the  officer  dis¬ 
tribution  process,  inasmuch  as  requirements  are  made  to  conform 
to  an  acceptable  distribution  pattern,  and,  in  addition,  the 
algorithm  adopted  for  allocating  flows  to  activities  establishes 
an  implicit  pr iority-of-f ill  discipline  which  is  similar  to  that 
imposed  on  the  actual  distribution  process. 

G.  Computer  Program 

The  general  methodology  described  above  was  implemented  on  a 
WANG  2200  VS  Computer  using  the  Wang  VS  Basic  Language.  VS  Basic 
is  a  compiler  based  version  of  Basic  with  a  number  of  advanced 
features  that  make  it  particularly  useful  for  developing  complex 
interactive  programs.  One  objective  in  developing  the  Aviation 
Officer  Requirements  model  was  to  create  a  "user  friendly" 
program  which  would  allow  manpower  planners  direct  access  via 
interactive  work  stations.  VS  Basic  facilitates  the  creation  of 
such  programs  by  providing  a  number  of  statements  which  allow 
sophisticated  screen  formatting  and  program  control  at  the  work 
station.  These  features  are  particularly  useful  when  creating 
menu  driven  routines  which  lead  the  computer  naive  user  through 
the  process  of  defining  the  parameters  and  controlling  model 
execution  for  a  specific  scenario. 

As  was  indicated  earlier,  one  important  consideration  in 
model  development  was  the  desire  to  provide  the  user  with  the 
ability  to  specify  as  many  of  the  significant  variables  affecting 
officer  requirements  as  possible.  The  model  as  implemented 


categorizes  some  28  variables  into  five  functional  groups  and 
allows  the  user  to  alter  any  or  all  of  them. 


The  functional  groups  and  included  variables  are  as  follows: 


1.  Basic  Data 

a.  Number  of  Squadrons 

b.  Aircraft  per  Squadron 

c.  Crew  Factor  {Crews  per  aircraft) 

d.  Number  per  Crew 

e.  Squadron  Grade  Distribution 

f.  Retention 

2.  Training  Requirements 

a.  Readiness  Squadron  Grade  Distribution 

b.  Undergraduate  Training  Grade  Distribution 

c.  Undergraduate  Training  Instructor  Planning  Factor 

3.  Policy  Variables 

a.  Plowback  Instructor  Fraction 

b.  Postgraduate  Flow  Fraction 

c.  War  College  Fraction 

4.  Allocation  Parameters 

a.  Fraction  of  Aviation  Officers 

b.  Fraction  of  Pilot  or  NFO 

c.  Fraction  of  Carrier  Based 

d.  Fraction  of  Community  Type  (Jet,  Prop,  Helo) 

5.  Network  Parameters  (For  Any  Node) 

a.  Tour  Length 

b.  Precedent  Node  Status 


The  flexibility  afforded  the  planner  in  using  the  model 
should  be  apparent  from  the  above  listing.  In  all  there  are  11 
basic  variables  which  can  be  changed  (grade  distribution  involves 
three  variables  and  retention  involves  four) .  In  addition, 
training  requirements  cover  eight  variables;  there  are  three 
policy  variables  and  four  allocation  parameters.  The  network 
parameters  include  tour  length  and  7  precedent  nodes  for  each  of 
the  49  terminal  nodes  in  the  career  path  network.  As  a  practical 
matter  it  can  be  expected  that  the  user  of  the  model  will  change 
only  a  small  fraction  of  the  variables  on  a  given  run.  In  fact, 
most  model  runs  will  probably  focus  on  a  few  key  variables 
influencing  force  level  (Number  of  Squadrons,  Number  of  Air- 
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craft),  Officer  Inventory  (Retention),  or  Officer  Distribution 
(Crew  Factor,  Tour  Length). 

In  addition  to  the  broad  range  of  input  variables  afforded, 
the  model  has  the  capacity  to  produce  a  broad  range  of  output 
variables.  For  each  subcoramunity ,  the  model  records  the  dis¬ 
tribution  of  officers  by  tour  and  activity  and  also  by  years  of 
aviation  service  and  activity.  This  information  enables  deriva¬ 
tion  of  the  number  of  consequences  of  a  particular  requirements 
solution.  For  example,  since  the  number  of  Commanders  in  fleet 
squadrons  is  specified  and  the  command  tour  start  time  is  estab¬ 
lished,  it  is  easy  to  derive  the  implied  fleet  squadron  command 
opportunity  for  a  given  community.  This  value  is  simply  the 
ratio  of  the  number  of  people  entering  the  command  tour  to  the 
number  of  people  in  the  inventory  year  group  in  which  command 
tour  entry  occurs.  Similar  calculations  can  be  made  for  Fleet 
squadron  Department  Head  opportunity. 

Since  the  model  segregates  operational  flying  billets  from 
non-flying  billets,  it  is  also  possible  to  estimate  the  degree  of 
achievement  of  Aviation  Career  Incentive  Pay  (ACIP)  gates.  ACIP 
gates  are  defined  by  law  and  require  that  Aviation  Officers 
achieve  certain  minimum  levels  of  operational  flying  at  11  and  18 
years  of  Aviation  Service  in  order  to  be  eligible  for  career 
incentive  pay.  These  gates  are: 

Gate  1:  Six  years  of  operational  flying  by  11  years  of 
service. 

Gate  2:  Eleven  years  of  operational  flying  by  18  years  of 
service . 
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Gate  3:  Nine  years  of  operational  flying  by  18  years  of 
service  (applies  to  those  failing  Gate  2  and  carries 
more  stringent  eligibility  requirements). 

Since  the  Aviation  Officer  Requirements  model  produces  a 
year  by  year  inventory  display  for  each  activity,  the  fraction  of 
the  ACIP  requirement  which  is  met  for  each  gate  can  be  computed. 
As  this  is  done  in  the  model,  the  result  indicates  whether  all 
personnel  can  be  flowed  through  operational  flying  billets  in 
time  to  meet  the  specified  gates.  In  general,  if  the  ACIP 
fraction  for  a  given  gate  is  greater  than  1,  it  is  possible  for 
all  personnel  to  meet  that  gate  requirement.  Conversely,  if  the 
fraction  is  less  than  1  some  portion  of  the  population  will  fail 
to  meet  the  gate  requirement. 

In  addition  to  the  specialized  outputs  described  above,  pro~ 
vision  is  made  for  listings  of  projected  community  to' al  officer 
population  by  grade  and  activity.  Accessions  to  the  designator 
(Pilot  Training  Rate  or  NFO  Training  Rate)  required  to  support 
the  proposed  subcommunity  population  are  also  given  in  addition 
to  required  accessions  to  training  for  supporting  the  postulated 
training  rates.  Figure  5  is  the  principal  output  table  from  the 
model  for  a  given  community  run.  It  contains  all  of  the  basic 
descriptive  data  for  the  subcoramunity  being  analyzed  and  the 
output  variables  described  above.  Figure  6  is  an  example  of  the 
detailed  inventory  profile  produced  as  part  of  the  output.  As 
can  be  seen,  it  displays  the  projected  number  of  officers  in  each 
activity  by  year  of  aviation  service.  Its  principal  utility  is 
in  providing  an  overview  of  the  deployment  of  the  resulting 
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FIGURE  5 

Model  Output  for  a  Community  Run 
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Figure 


Aviation  Officer  inventory.  It  should  be  stressed  however  that, 
due  to  rounding  within  cells,  comparisons  between  activities  in 
later  years  of  aviation  service  may  be  misleading  since  very  low 
flows  are  involved  and  rounding  error  becomes  a  significant  part 
of  the  total  flow.  The  model  can  easily  be  modified  to  provide 
more  precise  results  for  those  years  if  required. 

The  preceding  discussion  was  only  intended  to  give  an  over¬ 
view  of  the  computer  program  developed  in  connection  with  the 
Aviation  Officer  Requirements  Study.  A  detailed  description  of 
model  operation,  including  facsimiles  of  workstation  displays  and 
printed  outputs,  is  provided  in  Appendix  A.  This  Appendix 
presents  a  narrative  description  of  model  operation  keyed  to 
workstation  displays  and  is  intended  as  a  user's  manual  for  the 
model.  Appendix  B  contains  a  listing  of  the  basic  computer 
program  for  the  model  and  Appendix  C  contains  tabulations  of  the 
default  values  for  all  model  variables. 

III.  MODEL  APPLICATION 
A.  Introduction 

In  order  to  demonstrate  the  way  in  the  Aviation  Officer 
Requirements  Model  will  probably  be  most  useful,  this  section  of 
the  report  presents  a  comparative  analysis  of  requirements  for 
pilots  and  NFOs  for  a  force  containing  12  Carrier  Air  Wings  and 
for  one  containing  14  Carrier  Air  Wings.  The  analysis  is 
obviously  pertinent  since  current  planning  calls  for  a  thirteenth 
Air  Wing  by  FY  1984  and  a  fourteenth  by  1987.  However,  it  should 
be  stressed  that  the  example  presented  below  is  for  illustrative 
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purposes  only >  There  are  a  number  of  reasons  why  the  results 
shown  could  differ  significantly  from  current  Navy  Plans: 

1.  The  fixed  requirements  entered  in  the  model  are 
derived  from  a  March  1981  run  of  the  Officer  Billet  file.  A  sub¬ 
stantial  portion  of  the  source  data  is  therefore  over  1  year  old. 

2.  The  additional  two  Air  Wings  are  assumed  to  be  full 
CV  Air  Wings.  The  Navy  may  elect  to  provide  reduced  capability 
Air  Wings . 

3.  It  is  likely  that  other  increments  to  Aviation 
Forces,  particularly  Maritime  Patrol  and  LAMPS  MK  III,  are  also 
being  considered. 

For  these  reasons,  the  results  tabulated  below  should  be 
viewed  as  examples  of  the  kinds  of  results  available  from  the 
model  rather  than  definitive  statements  the  Navy’s  current  of 
Aviation  Officer  Requirements. 

B.  Baseline  Case  (12  Carrier  Air  Wings) 

In  developing  the  application  example,  the  model  was 
first  run  to  obtain  a  base  case  statement  of  requirements  for 
currently  authorized  force  levels.  These  are  the  force  levels 
shown  in  Table  III.  The  model  was  run  for  all  23  subcommunities 
(14  Naval  Aviator  and  9  Naval  Flight  Officer),  with  model  para¬ 
meters  set  at  default  values  except  for  the  following: 

1.  Retention 


Jet  Aviators  (Less  Force  Support)  40% 
Prop.  Aviators  (Less  Force  Support)  45% 
Helicopter  Aviators  (Less  Force  Support)  50% 
Force  Support  Aviators  35% 


All  Naval  Flight  Officers 


50% 


2.  Plowback  Fraction 

Jet  and  Prop  Aviators  5% 

Helo  Aviators  and  NFOs  0% 

3.  Fleet  Tour  Lengths 

Tour  3,  Tour  4,  Tour  5  30  Mos . 

(vice  36  month  Default  Value) 


The  above  changes  bring  the  model  closer  to  current  retention 
experience  and  detailing  practice. 


The  set  of  baseline  results  obtained  by  running  the  model  for 
all  subcommunities  under  the  conditions  described  above  are 
summarized  in  Tables  4  through  7.  It  will  be  noted  that  these 
summaries  contain  two  sets  of  estimates  for  each  subcommunity: 
one  labelled  LOW  and  a  second  labelled  TOTAL.  As  described 
earlier,  when  testing  results  at  the  end  of  each  iteration,  the 
model  first  examines  the  degree  to  which  requirements  for  the 
first  six  activities  (all  except  OTHER)  have  been  met.  If  these 
requirements  have  been  met,  an  output  display  is  generated  and  a 
complete  output  print  can  be  made  prior  to  continuing  the  solu¬ 
tion.  The  model  then  proceeds  to  generate  inventory  to  fill  the 
remaining  OTHER  requirement  and  completes  the  solution  for  the 
subcommunity .V  There  are  thus  two  solutions  available  for 


1/  Two  procedural  features  of  the  Aviation  Officer  Require¬ 
ments  model  should  be  stressed: 

a.  Because  of  the  structure  of  the  Allocation  Matrix  and 
the  sequencing  of  activities,  the  model  tends  to  place  the  lowest 
priority  on  OTHER  requirements.  Therefore  it  is  quite  likely 
that  the  first  six  activities  will  be  filled  before  OTHER. 

b.  Despite  internal  priorities,  the  model  does  fill  other 
requirements  as  resources  permit.  Therefore  when  the  first 
requirements  test  is  satisfied,  some  portion  of  the  OTHER 
requirement  will  also  be  filled. 

34 


J 


each  subcommunityj  one  which  assures  that  all  requirements 
except  OTHER  are  met,  and  a  final  solution  which  assures  that  the 
total  requirement  is  met.  The  two  solutions  (LOW  and  TOTAL)  pro¬ 
vide  a  range  in  which  the  planner  can  be  confident  that  immediate 
requirements  will  be  met,  and,  depending  on  the  magnitude  of  the 
unmet  OTHER  requirements,  may  provide  a  base  for  subsequent 
tradeoff  analysis  of  requirements  at  the  margin.  (It  may  be 
appropriate  to  consider  redefining  OTHER  requirements  to  other 
designators  rather  than  generate  additional  inventory.  ) 

Table  IV-A  presents  the  baseline  results  for  Naval  Aviators 
while  Table  IV-B  presents  similar  results  for  Naval  Flight 
Officers.  These  tables  have  been  structured  to  show  subcoramunity 
groupings  arranged  by  Undergraduate  Training  pipline  so  that  com¬ 
parison  with  existing  training  rates  is  facilitated. 

Referring  to  Table  IV-A,  the  baseline  case  estimates  a  LOW 
inventory  of  10,595  Naval  Aviators  and  a  TOTAL  inventory  of 
11,394.  The  LOW  inventory  estimate  results  in  a  total  of  280 
OTHER  billets  going  unfilled.  Conversely,  under  the  LOW  esti¬ 
mate,  the  model  was  forced  to  assign  a  total  of  557  Aviators  to 
Non-Aviation  Tours;  under  the  TOTAL  estimate,  the  Non-Aviation 
total  was  913.  Thus  in  filling  the  280  OTHER  billets,  the  model 
created  an  additional  267  Non-Aviation  assignments. 

Table  IV-B  shows  a  total  inventory  requirement  of  4,784  Naval 
Flight  Officers  under  the  LOW  estimate  and  4,811  under  the  TOTAL 
estimate.  Unlike  the  case  for  Naval  Aviators,  the  NFO  inventory 
requirement  is  generally  met  completely  by  the  LOW  estimate. 


35 


TABLE  XV— B 

Baaeline  Raqulreaenta  -  Naval  flight  Of f tear* 


LOW* 

TOTAL 

Subcoaaunlrr 

Training  Rata 

Inventory 

Training  Rate 

Fight ar  (V?) 

813 

76 

813 

76 

813 

76 

813 

76 

*  Unaat  0THE>  Raqulreaant 

-  0 

Madina  Attack  (VAM) 

l 

■■ 

461 

43 

Electro  ale  Warfare  (VAQ) 

H 

483 

46 

Carrlar  ASH  (VS) 

498 

47 

498 

47 

FORCE  SUPPORT  JET 

143 

13 

143 

13 

TH  TOTAL 

1378 

148 

1387 

149 

*  Unaat  OTHER  Saqulraaanta 

-  2 

Early  Warning  tVAW) 

417 

J9 

430 

40 

AIDS  TOTAL 

417 

39 

430 

40 

*  Unaat  OTHER  Raqulraaanta 

•  4 

Marltlaa  Patrol  (VP) 

1482 

139 

1482 

139 

Electronic  Warfare  (VQ) 

420 

jy 

420 

39 

FORCE  SUPPORT  PROP 

74 

7 

79 

7 

NAV  TOTAL 

1976 

183 

1981 

183 

Umaac  OTHER  Re^ulreaenti  -  1 


This  is  due  to  the  grade  structure  of  the  NFO  requirement.  The 
Lieutenant  requirement  and,  in  particular  the  Fleet  and  Training 
requirements,  are  a  much  more  dominant  part  of  the  total  require¬ 
ment  for  NFOs  than  for  pilots.  As  a  result,  once  the  Lieutenant 
requirement  is  met,  enough  senior  officers  have  been  generated  to 
meet  all  requirements.  In  fact  the  NFO  community  as  a  whole  ends 
up  with  772  assignments  to  Non-Aviation  billets;  almost  as  many 
as  were  generated  for  Naval  Aviators  at  twice  the  inventory 
level . 


C.  Expanded  Requirements  Case  (14  Air  Wings) 

One  of  the  primary  objectives  in  developing  the  Avia¬ 
tion  Officer  Requirements  model  was  to  provide  a  capability  for 
rapidly  assessing  the  impact  of  force  level  changes  on  officer 
requirements.  Currently,  the  number  of  Carrier  Air  Wings  is  pro¬ 
grammed  to  increase  to  14  by  1987.  The  model  was  exercised  to 
determine  the  impact  of  this  increase  by  generating  new  runs  for 
the  affected  subcommunities.  Specifically; 

1.  VA  and  VF  Squadrons  were  increased  by  four.  All 
remaining  carrier  based  subcommunities  were  increased  by  two 
squadrons  (VAM,  VAW,  VAQ,  VS,  HS) . 

2.  Readiness  Squadron  Lieutenants  were  increased  in 
proportion  to  the  squadron  increase  to  provide  required  flight 
instructors . 

All  other  parameters  of  the  baseline  runs  remained  unchanged.  The 
results  of  these  runs  were  shown  in  Tables  V-A  and  V-B. 
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Table  V-A  shows  the  results  of  the  expanded  requirements  runs 
for  Naval  Aviators.  Under  this  requirement  the  LOW  estimate  has 
risen  to  11,153  Aviators,  an  increase  of  558  Aviators,  while  the 
TOTAL  estimate  has  risen  to  11,757,  an  increase  of  only  363  Avia¬ 
tors.  In  addition,  the  unmet  OTHER  requirements  under  the  LOW 
estimate  have  decreased  from  280  to  212.  At  the  same  time,  the 
model  generates  596  Non-Aviation  assignments  under  the  LOW  esti¬ 
mate  and  824  under  the  TOTAL  estimate. 

The  increase  in  direct  fleet  billets  represented  in  Table  V-A 
is  248.  It  is  somewhat  surprising  that  this  results  in  total 
inventory  increases  of  558  at  the  LOW  estimate  and  363  for  the 
TOTAL  estimate.  What  has  happended  is  that  Non-Aviation  tours 
have  been  reduced,  indicating  that  a  better  match  is  occurring 
between  requirements  and  projected  inventory  at  the  higher  force 
levels.  The  logic  of  this  becomes  evident  when  considering  that 
the  addition  of  an  increment  consisting  predominantly  of  Lieuten¬ 
ants  provides  a  better  match  to  the  current  number  of  commander 
billets  in  the  shore  establishment.  The  model  is  then  less 
likely  to  generate  surpluses  which  have  to  flow  to  Non-Aviation 
assignments. 

Table  V-B  shews  the  results  of  the  expanded  requirements  runs 
for  Naval  Flight  Officers.  As  with  the  previous  NFO  runs,  there 
is  virtually  no  difference  between  the  LOW  and  TOTAL  estimates, 
indicating  that  OTHER  requirements  are  substantially  m«c  in  the 
process  of  filling  requirements  for  the  first  six  activities. 
Under  the  expanded  requirements,  NFO  requirements  increase  from 
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TABLE  V-A 


Expanded  Requirement*  (14  Air  Wings) 
Naval  Aviators 


Subcommunity 

1  LOW*  .  1 

KgSggMZCTi 

■yHTTTT.J 

BTgQTlZmi 

Light  Attack  (VA) 

1 

1239 

1 

127 

1281 

131 

Fighter  (VP) 

1131 

118 

1151 

118 

Medium  Attack  (VAM) 

344 

36 

574 

59 

Electronic  Warfare  (VAQ) 

29/ 

30 

29/ 

30 

Carrier  ASW  (VS) 

589 

60 

614 

63 

FORCE  SUPPORT  JET 

832 

89 

913 

98 

TOTAL  JET 

4632 

480 

4830 

499 

*  Unmet  OTHER  Requirement!  -  63 

Maritime  Patrol  (VP) 

2234 

219 

2315 

226 

Early  Warning  (VAH) 

363 

37 

379 

39 

Electronic  Warfare  (VQ) 

370 

36 

370 

36 

FORCE  SUPPORT  PROP 

342 

36 

527 

36 

TOTAL  PROP 

3311 

328 

3591 

357 

*  Unmet  OTHER  Requirements  •  104 

Helicopter  ASW  (HS) 

663 

62 

668 

65 

LAMPS  ME  I  (HSL) 

667 

63 

mm 

70 

LAMPS  MR  111  (HSL) 

1102 

104 

108 

FORCE  SUPPORT  HELO 

738 

81 

738 

81 

TOTitL  HELO 

1 

3190 

311 

i 

3336  i 

: 

324 

*  Unmet  OTHER  Requirements  •  43 
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TABLE  V-B 


Expanded  Requirements  (14  Air  Wings) 
Naval  Flight  Officers 


LOW*  | 

j  TOTAL 

Subcommunity 

Inventory 

Training  Rate 

Inventory 

Training  Rate 

Fighter  (VF) 

935 

88 

935 

88 

RIO  TOTAL 

935 

88 

935 

88 

Medium  Attack  (VAM) 

524 

49 

524 

49 

Electronic  Warfare  (VAQ) 

53 

564 

53 

Carrier  ASW  (VS) 

55 

583 

55 

FORCE  SUPPORT  JET 

■B 

13 

143 

13 

TN  TOTAL 

1814 

170 

1814 

170 

Early  Warning  (VAW) 

481 

45 

481 

45 

AIDS  TOTAL 

481 

45 

481 

45 

Maritime  Patrol  (VP) 

1482 

139 

1482 

139 

Electronic  Warfare  (VQ) 

420 

39 

420 

39 

FORCE  SUPPORT  PROP 

74 

7 

79 

7 

NAV  TOTAL 

1976 

185 

1981 

185 

*  Unmet  OTHER  Requirement  ■  1  (NAV) 
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4,811  to  5,211.  Thus,  to  meet  an  increase  of  192  in  direct 
requirements,  the  total  requirement  grows  by  400.  In  addition, 
the  Non-Aviation  requirement  grows  by  118  indicating  that  the 
dominant  influence  in  increasing  the  total  requirement  is  the 
increase  in  the  number  of  Lieutenants.  Recall  that  Lieutenants 
were  already  the  controlling  factor  defining  NFO  inventory. 
Therefore,  as  more  are  generated  in  response  to  increased  demand, 
the  resulting  senior  officers  added  to  the  steady  state  inventory 
must  be  assigned  out  of  Aviation. 

D.  Training  Rates 

It  is  of  some  interest  to  compare  the  training  rates 
derived  above  to  the  currently  programmed  training  rates.  Table 
VI  summarizes  Pilot  and  Naval  Flight  Officer  Training  Rates  by 
training  pipeline  from  Tables  IV  and  V  and  compares  them  with  the 
planning  figures  proposed  for  FY  1984. 


Table  VI 

Comparison  Of  Training  Rates 
As  Developed  In  Model  With  Navy  Program 


MODEL 


Baseline 


NAVY 
FY  84 


PILOT  TRAINING  RATES 

Strike  (JET) 

Maritime  (PROP) 
Helicopter 

(12  Air  Wings) 

469 

353 

318 

(14  Air  Wings) 

499 

357 

324 

394 

373 

320 

TOTAL 

1,130 

1,180 

NFO  TRAINING  RATES 

Radar  Intercept  Off. 

(RIO) 

76 

88 

81 

Tatical  Navigator 

(TN) 

149 

170 

184 

Automatic  Tactical 

40 

45 

60 

Data  System 

(ATDS) 

Navigator 

(NAV) 

185 

135 

220 

42 


Comparison  of  pilot  training  rates  reveals  significant 
differences  between  model-predicted  requirements  and  the  Navy 
Program  for  Jet  training.  Prop  and  Helicopter  requirements  are 
very  close.  The  lower  Jet  training  rate  in  the  Navy  Program 
reflects  the  current  jet  training  aircraft  constraints  which  are 
projected  to  persist  for  the  remainder  of  the  decade.  Given  such 
a  long  term  shortfall,  it  can  be  expected  that  the  number  of 
OTHER  billets  fi  liable  by  Jet  Aviators  will  have  to  decline  to 
offset  a  widening  gap  between  inventory  and  requirements. 

Comparison  of  NFO  Training  Rates  as  developed  by  the  model 
reveals  that  model  results  are  significantly  below  programmed 
rates,  particularly  for  the  ATDS  and  NAVIGATOR  pipelines.  There 
are  persuasive  reasons  for  this  difference  which  are  discussed 
below,  but  it  should  be  recognized  that  production  rates  as  high 
as  those  programmed  will  greatly  increase  the  requirement  to  flow 
senior  Naval  Flight  Officers  into  Out-of-Avia tion  Billets. 

E.  Tour  Lenath  and  Command  Opportunity 


As  part  of  the  output  for  each  subcommuni  ty  run,  the 
model  provides  estimates  of  the  tour  length  which  will  be 
required  of  first  tour  Aviators  and  of  fleet  squadron  department 
head  and  command  opportunity.  Tables  VII-A  and  -B  present  these 
results  for  the  baseline  and  expanded  requirements  runs  described 


a  bove . 


Examination  of  these  two  tables  reveals  that  there  is  a 
significant  difference  in  average  first  tour  length  between  Naval 
Aviators  and  NFOs,  with  the  respective  values  averaging  40  and  50 


TABLE  VII-A 


First  Tour  Length,  &  Fleet  Tour  Opportunities 
Naval  Aviators 


BASELINE 
(12  AIR  WINGS) 


EXPANDED  REQUIREMENTS 
(14  AIR  WINGS) 


Community 

First 

Tour 

Length 

Command 

Oppor¬ 

tunity 

Depart. 

Head 

Oppor. 

First 

Tour 

Length 

Command 

Oppor¬ 

tunity 

Depart . 

Head 

Oppor. 

Light  Attack  (VAL) 

34 

.78 

1.38 

38 

.87 

1.54 

Fighter  (VF) 

38 

.45 

.85 

39 

.48 

.89 

Medium  Attack  (VAM) 

41 

.44 

.88 

44 

.48 

.94 

Electronic  Warfare  (VAQ) 

29 

.87 

1.38 

20 

.86 

1.33 

Carrier  ASW  (VS) 

42 

.38 

.97 

46 

.42 

1.06 

FORCE  SUPPORT  JET 

38 

.56 

1.63 

“ 

“ 

Maritime  Patrol  (VP) 

48 

.20 

.79 

__ 

Early  Warning  (VAW) 

37 

.69 

1.23 

39 

.74 

1.28 

Electronic  Warfare  (VQ) 

46 

.21 

.77 

— 

— 

— 

FORCE  SUPPORT  PROP 

15 

.08 

.40 

“ 

Helicopter  ASW  (HS) 

39 

.70 

1.28 

43 

.74 

1.34 

LAMPS  MK  I  (HSL) 

47 

.30 

.56 

— 

— 

— 

LAMPS  MK  III  (HSL) 

44 

.25 

1.63 

— 

— 

— 

FORCE  SUPPORT  HELO 

48 

.45 

1.13 

— 

— 

— 

J 


TABLE  VII-B 


First  Tour  Length,  &  Fleet  Tour  Opportunities 
Naval  Flight  Officers 


BASELINE 
(12  AIR  WINGS) 


EXPANDED  REQUIREMENTS 
(14  AIR  WINGS) 


Community 

First 

Tour 

Length 

Command 

Oppor¬ 

tunity 

Depart. 

Head 

Oppor. 

First 

Tour 

Length 

Command 

Oppor¬ 

tunity 

Depart . 

Head 

Oppor. 

Fighter  (VF) 

50 

.55 

ON 

00 

• 

51 

.56 

.89 

Medium  Attack  (VAM) 

51 

OQ 

• 

.78 

52 

.50 

• 

00 

o 

Electronic  Warfare  (VAQ) 

48 

.38 

.91 

49 

1 

.94 

Carrier  ASW  (VS) 

51 

.41 

.92 

51 

.95 

FORCE  SUPPORT  JET 

49 

90 

r-* 

e 

97 

— 

■a 

— 

Early  Warning  (VAW) 

51 

.52 

.84 

52 

.54 

00 

• 

Maritime  Patrol  (VP) 

51 
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months.  The  longer  NFO  first  tour  is  the  product  of  the  relative 
emphasis  on  junior  billets  in  the  NFO  requirements.  The  model  is 
able  to  satisfy  senior  requirements  for  NFOs  with  relatively  few 
junior  officers.  The  lower  number  of  junior  NFOs  must  serve 
longer  in  the  first  tour  to  meet  requirements.  This  explains  why 
the  programmed  training  rates  for  NFOs  are  significantly  higher 
than  those  given  by  the  model.  Those  higher  rates  tend  to  equal¬ 
ize  Pilot  and  NFO  first  tours.  However,  it  must  be  recognized 
that  in  taking  this  course,  large  numbers  of  surplus  senior 
officers  are  being  generated. 

The  intent  of  this  section  of  the  report  was  to  demonstrate, 
through  a  reasonably  complicated  planning  problem,  the  applica¬ 
tion  of  the  Aviation  Officer  Requirements  model.  It  was  desired 
to  show  a  representative  range  of  variables  manipulated  as  they 
might  be  in  a  real  programming  analysis.  The  total  effort 
required  35  separate  community  runs  and  just  under  3  hours  of 
computer  connect  time.  Clearly,  the  results  suggest  other  runs 
to  examine  the  influence  of  other  variables.  For  example,  given 
the  difference  in  response  observed  between  Pilots  and  NFOs  with 
respect  to  first  tour  length,  it  would  be  of  some  use  to  examine 
the  influence  of  retention,  later  tour  length,  or  variations  in 
permissible  career  paths  on  the  observed  results.  These  and 
other  alternatives  available  illustrate  the  range  of  the  model  as 
a  planning  tool.  They  also  suggest  that  a  large  number  of  feasi¬ 
ble  solutions  to  the  Aviation  Officer  requirements  problem  can  be 
developed  from  the  model. 
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Users  who  expect  decisions  from  the  model  will  be  disap¬ 
pointed  since  it  is  designed  only  as  a  tool  to  assist  planners 
who  understand  Aviation  Officer  requirements.  It  can  be  used  to 
rapidly  quantify  alternatives  or  to  assist  in  illuminating  per¬ 
sonnel  management  issues,  but  it  cannot  make  decisions;  that  is 
the  province  of  the  planner. 

IV.  FUTURE  DEVELOPMENT 

As  with  any  complex  computer  based  model,  the  process  of 
testing  and  use  has  revealed  a  number  of  ways  in  which  the  model 
can  be  improved  and  enhanced.  These  are  identified  and  discussed 
below. 


Optimization.  The  discussion  in  the  previous  section  clear¬ 
ly  indicates  that  the  solutions  provided  by  model  were  simply 
feasible  solutions  for  each  individual  subcommunity.  Differences 
between  subcommunities  suggest  that  there  are  probably  more  effi¬ 
cient  solutions  involving  reallocation  of  non-community  specific 
requirements  across  subcommunities.  For  example,  the  structural 
differences  noted  between  Pilots  and  NFOs  could  be  addressed  by 
allocating  more  of  the  OTHER  requirement  at  senior  grade  levels 
to  NFOs.  This  would  simultaneously  tend  to  increase  the  number 
of  junior  NFOs  and  decrease  the  number  of  junior  aviators. 

In  more  general  terms,  the  main  improvement  suggested  for  the 
Aviation  Officer  Requirements  model  is  to  provide  a  capability 
for  optimization.  To  accomplish  this  the  model  must  first  be 
modified  to  permit  a  single  run  covering  all  subcommunities. 
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This  global  run  capability  must  permit  pre-specification  of  all 
variables  and  cross  assignment  of  officers  between  subcommuni¬ 
ties  . 

There  are  a  variety  of  ways  in  which  optimization  may  be 
defined.  For  example,  the  acquisition  (recruiting  and  training) 
cost  of  a  given  inventory  of  officers  could  be  minimized.  Alter¬ 
natively,  the  annual  cost  of  holding  that  inventory  could  be 
minimized.  Another  choice  is  to  minimize  the  total  number  of  of¬ 
ficers  in  the  inventory.  (This  alternative  would  not  necessarily 
represent  a  minimization  of  acquisition  or  holding  costs.)  From 
the  choices  available,  a  definition  must  be  selected.  In  addi¬ 
tion,  the  independent  variables  over  which  optimization  is  to  be 
computed  must  be  specified  from  among  the  model  parameters. 

Generalization  of  Results 

The  ultimate  utility  of  the  Aviation  Officer  Requirements 
model  will  depend  in  some  measure  on  the  feasibility  of  applying 
the  modeling  technique  to  other  officer  communities.  Two  fea¬ 
tures  of  the  model  that  could  cause  difficulty  in  this  respect 
are  the  division  of  the  requirement  into  subcommunities  and  the 
definition  of  career  activities.  The  process  of  creating  sub¬ 
communities  and  defining  activities  for  Aviation  was  largely 
intuitive.  At  this  point,  intuitive  divisions  in  other  officer 
communities  are  not  readily  apparent,  although  those  engaged  in 
managing  the  communities  of  interest  may  be  able  to  provide  some 
insights.  In  any  event,  to  facilitate  general  application  of  the 
modeling  technique,  research  is  required  to  develop  a  fairly 
rigorous  technique  for  analyzing  an  officer  community. 
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Configuration  Management 


A  significant  problem  exists  with  respect  to  the  whole 
assemblage  of  .officer  models  used  in  the  officer  requirements 
determination  and  distribution  process.  This  problem  is  the  lack 
of  coherence  and  consistency  among  the  two  dozen  or  so  existing 
models.  Recognizing  this  situation,  OP-01  has  taken  the  initia¬ 
tive  of  establishing  the  Naval  Officer  Modeling  System  (NOMS). 
NOMS  will  establish  an  architectural  framework  that  will  enforce 
a  degree  of  standardization  for  models  across  officer  communi¬ 
ties,  while  allowing  for  necessary  variations  due  to  community 
characteristics.  NOMS  will  also  attempt  to  assure  that  officer 
modeling  efforts  are  longitudinally  consistent  throughout  the 
planning,  programming,  and  distribution  processes.  The  impact  of 
these  considerations  is  that,  as  NOMS  architecture  evolves  over 
the  next  year,  some  additional  research  will  be  required  to  es¬ 
tablish  the  interface  requirements  between  the  NOMS  data  base  and 
the  Aviation  Officer  Requirements  model. 

The  research  required  to  develop  the  enhancements  described 
above  and  to  lay  the  ground  work  for  broad  applicatiori  of  the 
basic  modeling  technique  will  be  undertaken  in  the  near  future  as 


an  extension  of  the  effort  reported  herein. 
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The  objective  of  this  appendix  is  to  provide  the  user's 
non-ADP  personnel  with  the  information  necessary  to  effectively 
use  the  Aviation  Officers  Requirements  Model. 

The  Aviation  Officers  Requirements  Model  provides  an  auto¬ 
mated  capability  to  effectively  deal  with  officer  requirements 
determinations  through  interactive,  user-friendly  processing. 

The  user  of  the  Aviation  Officer  Requirements  Model  must  know 
how  to  initiate  and  stop  computer  processing  as  well  as  how  to 
use  the  system  to  produce  useful  results.  This  appendix  is  pre¬ 
sented  in  such  a  way  as  to  v«lk  the  user  through  the  system  from 
start  to  finish  and  provide  an  example  of  every  screen  or  option 
possible.  Use  of  this  appendix  should  make  the  Aviation  Officer 
Requirements  Model  easy  to  operate  for  all  personnel.  While  the 
model  is  designed  for  personnel  with  limited  computer  experience, 
it  is  assumed  that  users  are  familiar  with  the  Aviation  Officer 
Requirements  Determination  process. 

On  the  next  page  of  this  appendix  is  a  picture  of  the  com¬ 
puter  keyboard  and  a  brief  explanation  of  the  PF-keys,  which  are 
used  for  the  majority  of  the  interactions  in  the  Aviation  Officer 
Requirements  Model.  An  explanation  of  the  cursor  control  keys  is 
also  provided. 
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THE  KEYBOARD 


PROGRAM  -  The  16  PF  keys  act  the  same  as  the  ENTER  key,  except 
FUNCTION  that  each  key  generates  a  unique  character.  A  con- 
(PF)  trolling  program  can  therefore  examine  the  character 

to  determine  which  PF  key  was  struck.  The  values  of 

the  PF  keys  are  affected  by  SHIFT:  the  lowercase 

values  are  PF  1  -  PF  16  and  the  uppercase  values,  PF 
17  -  PF  32. 


Non-Field-Sensitive  Cursor  Positioning  Keys 

These  keys  position  the  cursor  without  regard  for  the  pre¬ 
sence  of  particular  fields .  They  can  be  used  to  position  the 
cursor  at  any  location  on  the  screen.  There  are  four  keys  in 
this  group;  all  provide  the  automatic  repeat  feature,  which 
causes  keystrokes  to  be  entered  continually  while  the  key  is 
pressed: 

Up  arrow  -  Moves  the  cursor  up  one  row  in  the  same  column. 

If  positioned  in  the  top  row,  the  cursor  moves  to 

the  bottom  row  in  the  same  column. 

Down  arrow  -  Moves  the  cursor  down  one  row  in  the  same  column. 

If  positioned  in  the  bottom  row,  the  cursor  moves 

to  the  top  row  in  the  same  column. 

Right  arrow  -  Moves  the  cursor  one  location  to  the  right  in  the 

same  row.  If  positioned  at  the  end  of  a  row,  the 
cursor  moves  to  the  beginning  of  the  next  row. 
If  positioned  at  the  end  of  the  bottom  row,  it 
moves  to  the  beginning  of  the  top  row. 

Left  arrow  -  Moves  the  cursor  one  location  to  the  left  in  the 

same  row.  If  positioned  at  the  beginning  of  a 


row,  the  cursor  moves  to  the  end  of  the  preceding 
row.  If  positioned  at  the  beginning  of  the  top 
row,  it  moves  to  the  end  of  the  bottom  row. 

-  The  normal  means  of  terminating  user  entry  and 
requesting  the  program  to  process  data.  SHIFT 
does  not  affect  the  action  of  ENTER,  and  ENTER  is 
not  honored  while  the  keyboard  data  entry  keys 
are  locked. 
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COMMUNITY  SELECTION  MENU  SCREEN 


This  screen  acts  as  the  Control  Screen 
the  Aviation  Officer  Requirements  Model 
this  screen  and  depress  the  PF-16  key. 
the  processing  but  also  is  the  only  way 


.  In  order  to  exit  from 
,  the  user  must  return  to 
This  key  not  only  ends 
to  get  printed  output. 


On  the  computer  screen,  the  words  NAVAL  AVIATOR  and  LIGHT  ATTACK 
appear  as  flashing  words;  they  have  been  underscored  in  the 
screen  picture  above  for  purposes  of  highlighting.  These  words 
flash  to  indicate  that  they  are  variable,  defining  the  community 
in  which  the  user  chooses  to  work.  If  the  user  wishes  to  work  on 
NAVAL  AVIATORS  in  the  LIGHT  ATTACK  community,  then  all  that  is 
required  is  that  the  user  hit  the  "ENTER"  key.  The  "ENTER"  key 
in  this  segment  of  processing  works  as  the  default. 


A- 4 


pa  i«  >  w  mi  ' '  »ji 


*■*■*'*  1  e!  3)  4  S  6  V  B  *«*« 

***«*****»*<*MI»«M>MH>»»«««MI»««««i«««««««««MC-::«<:««««:«MC««««Mt«««««Mi«iM:««:««««*««««««««Mi«S 


1» 

£f* 

■s* 

NAVAL  AWAIT*.  UJ+LNllY  SELECTIONS 

4* 

S* 

Vf«J  MAY  !3tl.E(M  PRIM  AMI**-  l-a.KITTN  ClRMNlTII  E<  IN  UHiUI 

fc* 

NAVAL  AV1AITM.  AKE  HtUJUVIuD.  TEES*  Alii: 

l  nrrni  am  av 

7» 

pret»ink  he  i>f  key  a*M.  splmdink  ro  ox 

HEM  MMSER  CM 

H* 

he  l  iar  you  uiil  select  nawl 

AVIATOR;, 

IN  THAI  OTMMllY 

<>* 

FOR  ANALYSIS. 

*!(>• 

« 

1* 

pf  key  ctamnity 

r*r  key  copmjniiv 

• 

« 

:** 

l 

LIGHT  ATTACK 

0 

MARITlMe  PATRf"l_ 

m 

3 

FIGHTER 

f» 

LAMPS  MK  I 

■» 

i 

MEDII M  ATTACK 

10 

LAMPS  MK  III 

« 

6* 

4 

ILARLY  WARN  •  MI  -  VAN 

n 

CLECTRCMIC  NAKI'AEd*  -  V» 

■» 

& 

electronic  nawakc  ■  vao 

u? 

RNCL-.  OLPiVM  l  -  .jit 

« 

6 

CARRIER  BALED  ti  U 

13 

foro.  a.Pi  iXM  ••  pwr 

• 

<>* 

7 

icn  jclptfr  am* 

14 

FORCE  MEViRT  -  1CLIT 

* 

1* 

« 

if* 

• 

J* 

TO  MiniRN  IT)  1-iASlC  HOIJ  wnmn 

MAKING  A 

SELECTION  PliLTK  'INTI. 

• 

4* 

• 

« 

1* 

£•■* 

3# 

4* 

!,« 

<>* 

7* 


1  a  3  4  S  G 


«  H* 

«  V 
*10* 
*  1* 

*  S* 

«  :*> 

*  4* 

*  s>* 

*  G« 

«  7* 

*  8» 

«  <>• 
•LO« 
«  1* 

*  a* 
«  7* 

*  4* 

*  • 

Ml  MM««*«MHI  ««•««<* 
7  R  *•«* 


»**«  ia-j4F*v»*)oi?:i4r>iV6<joi^ii4!iG7irx)ir,..i4s«i/inoi^:34!:x;7B90ta3i4nx»7Ruoi.?.w!;^/»<)oiir:t4n4i7irx>  ««< 


NAVAL  AVIATOR  COMMUNITY  SELECTION  MENU  SCREEN 

Depressing  the  PF-1  key  on  the  Community  Selection  screen  will 
produce  this  screen.  Now  the  user  may  select  any  of  the  14 
communities  in  which  Naval  Aviators  are  required.  By  depressing 
the  "ENTER"  key,  the  user  will  return  to  the  Community  Selection 
screen  without  altering  the  current  community  selection.  By 
pressing  any  of  the  PF  keys,  the  user  will  enter  a  different  com¬ 
munity,  causing  the  Community  Selection  screen  to  change  the 
flashing  words  indicating  community  choice.  The  selected  com¬ 
munity  choice  is  identified  on  all  subsequent  screens. 
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COMMUNITY  SELECTION  MENU  SCREEN 

If  the  user  wishes  to  work  in  a  new  community  of  Naval  Flight 
Officers,  he  must  depress  the  PF-2  key.  After  doing  this,  the 
screen  on  the  following  page  of  this  appendix  will  appear. 
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NFO  COMMUNITY  SELECTION  MENU  SCREEN 
After  depressing  the  PF-2  key  in  the  Community  Selection  screen, 
the  screen  shown  above  will  appear.  This  screen  allows  the  user 
the  option  of  choosing  to  work  in  one  of  nine  NFO  communities. 
By  depressing  the  "ENTER"  key,  the  user  will  return  to  the  Com¬ 
munity  Selection  screen  without  making  any  changes  to  the  default 
values . 

When  returning  to  the  Community  Selection  screen,  the  flashing 
words  will  now  read  NAVAL  FLIGHT  OFFICERS  instead  of  NAVAL 
AVIATORS,  and  the  name  of  the  selected  community. 
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The  screen  on  this  page  allows  the  user  to  select  several  more 
options  for  his  work.  One  of  the  possible  options  available  to 
the  user  is  In-Process  Monitoring.  In-Process  Monitoring  lets 
the  user  see  intermediate  results  between  main  iterations.  The 
user  can  run  the  s/stem  with  minimal  interaction  by  entering  NO 
in  place  of  YES  next  to  "DO  YOU  DESIRE  IN-PROCESS  MONITORING?" 


The  line  then  should  look  like  this: 

DO  YOU  DESIRE  IN-PROCESS  MONITORING?  NO  (YES/NO) 

It  should  be  noted  that  this  and  all  subsequent  screens  present 
predefined  fields  in  which  entries  can  be  made.  The  cursor  is 
controlled  to  move  only  to  those  fields.  This  greatly  simplifies 
selection  of  alternatives  or  definition  of  parameters  since  the 
user  need  only  make  his  entry  without  having  to  position  the 
cursor.  If  no  change  to  a  particularly  parameter  is  desired,  the 
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tab  key  may  be  pressed  to  move  to  the  proper  field  for  the  next 
parameter  which  can  be  altered. 

Another  possible  option  is  the  Variable  Length  First  Tour  Option. 
Variable  Length  First  Tour  is  the  default;  however,  the  user  may 
wish  to  run  the  model  with  a  fixed  first  tour  value  of  43  months. 
If  so,  the  user  enters  NO  directly  across  from  "DO  YOU  DESIRE 
VARIABLE  LENGTH  FIRST  TOUR?" 

The  line  then  should  look  like  this; 

DO  YOU  DESIRE  VARIABLE  LENGTH  FIRST  TOUR?  NO  (YES/NO) 

The  last  possible  option  involves  upward  detailing.  This  option 
allows  the  system  to  assign  officers  to  requirements  of  the  next 
higher  grade  level  when  all  requirements  at  the  current  grade 
level  have  been  met.  If  the  user  does  not  wish  to  use  upward 
detailing,  NO  is  entered  directly  across  from  "DO  YOU  DESIRE 
UPWARD  DETAILING?" 

The  line  then  should  look  like  this; 

DO  YOU  DESIRE  UPWARD  DETAILING?  NO  (YES/NO) 
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CATEGORY  MENU  SCREEN 


This  screen  allows  the  user  to  enter  one  of  five  parameter  cate¬ 
gories  in  order  to  change  existing  parameters.  If  the  user 
wishes  to  change  any  existing  parameters  in  Basic  Coranunity  Data, 
he  would  depress  the  PF-1  key.  The  screen  on  the  next  page  of 
this  appendix  would  then  appear . 
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BASIC  COMMUNITY  DATA  CHANGE  SCREEN 

This  screen  displays  the  current,  value  of  changeable  parameters 
in  Basic  Community  data.  The  user  may  change  any  or  all  existing 
parameters,  or  he  may  decide  not  to  change  anything.  The  user 
should  be  avare  that  the  Parameters  CREW  FACTOR  and  NAVAL  AVIA¬ 
TORS  PER  CREW,  if  changed,  will  affect  only  the  number  of  Lieu¬ 
tenants  in  the  squadron  unless  the  number  of  Commanders  and/or 
Lieutenant  Commanders  in  Squadron  Grade  Distribution  is  changed. 
In  order  to  record  changes,  the  user  must  depress  the  "ENTER" 
key.  When  this  is  done,  the  system  will  return  to  the  category 
menu . 
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CATEGORY  MENU  SCREEN 

If  the  user  wishes  to  change  existing  parameters  in  Training 
Requirements  Data,  he  must  depress  the  PF-2  key.  Upon  selecting 
Training  Requirements  Data,  the  screen  on  the  next  page  of  this 
appendix  will  appear. 
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TRAINING  REQUIREMENTS  DATA  CHANGE  SCREEN 
This  screen  displays  the  current  value  of  the  Parameters  within 
Training  Requirements  Data.  The  user  may  change  any  or  all 
existing  parameters  or  he  may  decide  that  the  existing  parameters 
meet  the  necessary  requirements.  The  user  should  be  aware  that 
the  number  of  Lieutenants  for  undergraduate  training  is  deter¬ 
mined  by  the  Instructor  Planning  Factors  (Instructor  Pilots  per 
Graduates,  Instructor  NFOs  per  Graduates). 

If  the  user  chooses  to  change  the  parameters  after  he  has  entered 
his  changes,  he  must  depress  the  "ENTER"  key  in  order  to  record 
the  changes  and  continue.  The  same  process  is  followed  if  he 
wishes  to  default  to  the  current  values.  However,  if  the  user 
has  second  thoughts  after  entering  a  change  or  several  changes, 
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he  may  cancel  out  those  changes  by  depressing  the  PF-1  key;  this 
will  return  him  to  the  category  menu  without  entering  the 
changes . 
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CATEGORY  SELECTION  MENU  SCREEN 
If  the  user  wishes  to  change  existing 
Variablts,  he  must  depress  the  PF-3  key. 
Variables,  the  screen  on  the  next  page 
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POLICY  VARIABLES  CHANGE  SCREEN 

This  screen  displays  the  three  policy  variables  that  the  user  may 
change  in  order  to  check  the  results  of  different  policy  alter¬ 
natives.  The  Plowback  instructors  are  training  command  graduates 
Who  are  assigned  immediately  as  instructors  in  undergraduate 
training . 


After  entering  the  changes,  the  user  would  press  "ENTER"  in  order 
to  record  changes  and  continue  processing.  The  user  would  then 
be  returned  to  the  category  selection  screen. 
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CATEGORY  SELECTION  MENU  SCREEN 

If  the  user  wishes  to  change  existing  parameters  in  the  Alloca¬ 
tion  Parameters,  he  must  depress  the  PF-4  key.  Upon  selecting 
Allocation  Parameters,  the  screen  on  the  next  page  of  this  ap¬ 
pendix  would  appear. 
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ALLOCATION  PARAMETER  CHANGE  SCREEN 

This  screen  displays  four  allocation  parameters  that  the  user  is 
allowed  to  change.  After  making  appropriate  changes,  the  user 
may  depress  the  PF-1  key  in  order  to  return  to  Category  Menu 
without  entering  changes  or  the  user  may  press  "ENTER"  in  order 
to  record  the  changes  and  continue.  Depression  of  either  key 
will  return  the  user  to  the  Category  Selection  Menu  screen. 
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CATEGORY  SELECTION  MENU  SCREEN 

If  the  user  wishes  to  change  or  review  the  existing  parameter 
values  in  Career  Path  Network,  he  must  depress  the  PF-5  key. 
Upon  selecting  the  Career  Path  Network,  the  screen  on  the  next 
page  of  this  appendix  will  appear. 
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CAREER  PATH  NETWORK  CHANGE  SCREEN  ♦! 

This  screen  display  allows  the  user  to  inspect/modify  any  Career 
Path  Network  characteristic.  By  replacing  any  o  with  an  x  on  the 
presented  table  and  pressing  "ENTER",  the  user  may  inspect  that 
particular  node.  For  each  x  that  is  entered,  if  the  "ENTER"  key 
is  depressed,  the  screen  on  the  next  page  of  this  appendix  will 
appear.  After  all  x's  have  been  inspected,  the  Category  Selec¬ 
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CAREER  PATH  NETWORK  CHANGE  SCREEN  #2 

This  screen  reconfirms  the  activity  and  tour  number  that  the  user 
has  chosen  to  inspect.  At  this  point,  the  user  may  change  the 
value  of  the  tour  length  and  bar  or  make  available  any  of  the 
seven  precedent  nodes.  Once  the  user  has  made  required  changes 
and  is  ready  to  record  the  changes,  he  must  depress  the  "ENTER" 
key.  This  screen  will  appear  for  each  x  that  the  user  placed 
into  the  table  on  the  previous  screen.  Once  all  x’s  have  been 
inspected/modified,  the  system  will  return  the  user  to  the 
Category  Menu  Selection  screen. 
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CATEGORY  MENU  SELECTION  SCREEN 

Having  made  all  changes  required,  the  user  should  be  ready  to 
obtain  a  subcommunity  solution.  This  is  done  by  pressing  the 
"ENTER"  key.  If  the  user  has  changed  the  retention  value  in  the 
Basic  Community  Data  Change  screen,  the  screen  on  the  next,  page 
of  this  appendix  will  appear.  Otherwise,  the  Execution  screen 
will  appear. 
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RETENTION  SCREEN 

When  the  user  has  requested  a  change  in  retention,  this  screen 
appears.  A  change  in  retention  will  cause  the  Continuation 


Vector  to  change.  This  screen  displays  the  four  parameters  that 
determine  Continuation  Vector  and  offers  the  user  the  oppor¬ 
tunity  to  change  these  parameters  or  continue  the  process. 
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EXECUTION  SCREEN 

This  screen  lets  the  user  know  that  the  system  is  processing  the 
information  that  has  been  entered.  If,  in  the  screen  presented 
earlier,  the  user  had  chosen  to  not  have  In-Process  Monitoring  at 
the  end  of  each  iteration,  the  Results/Continue  screen  will  ap¬ 
pear  to  show  results  at  that  stage.  The  user  would  press  "ENTER" 
to  continue  and  this  screen  would  reappear  with  the  next  itera¬ 
tion  number. 


A-24 


<««  I  S  3  4  5  6  7  S  «««« 

M*************************  CH^*************************************** 


* 

« 

• 

• 

•  1* 

•  1* 

•  £« 

*  e* 

«  3* 

•  71* 

•  4* 

«  4* 

•  fa* 

*  &* 

•  6* 

*  6* 

«  7* 

«  7* 

•  u» 

*  8* 

«  9* 

EXTCUTICN  CINTIMCU 

*  9* 

•lO* 

*10* 

*  1* 

WORK INC  IM 

*  1* 

*  5* 

«  e* 

«  ■» 

N MM.  AVIATtftf:  IN  LICHT  ATTACK  OYMNITV 

*  .9* 

*  4* 

«  4* 

«  6* 

•  S* 

«  fe» 

«  6* 

•  /* 

«  7* 

•  tt* 

«  0* 

*  <»• 

«  9* 

«r<>« 

MAIN  ITCT7A1  II.N  1 

*50* 

»  1* 

'fJUER'  1TERATIUN  0 

*  1* 

*  3* 

btur 

cto  ran 

ll-RTF.  •  W- 14  Ft*  DATA 

*  6* 

«  71* 

ITTCf* 

UECK 

J, 

J  •  4  IT-14  FUR  DATA 

«  3* 

*  4* 

BTW 

arw 

U 

.1  *  J.  M8-  14  FUR  DATA 

«  4* 

« 

« 

« 

• 

M«  1  a  3  4  S  &  7  H  ««** 

”«  ia7*4rit.YH<Jojr::j*!:<;vB'X)i.?:*w:4;7WK»ip:3*r«7mfn;:34!:^7B«x)j.'':'.i4rc7»:WiK3*Ec/B,J0i^:;Hr</!,w;io  «« 

iWHHMWW  »» IHMWWtlWMHWWMWI  «NHHHHHHHt-C«*  m««M« 


EXECUTION  SCREEN  (IN-PROCESS  MONITORING) 

This  screen  lets  the  user  know  that  the  information  he  has  en¬ 
tered  is  being  processed.  In  the  In-Process  Monitoring  mode,  the 
user  may  stop  and  check  the  data  at  one  or  all  stop  check  points . 
This  is  done  by  pressing  PF-14.  If  the  user  presses  PF-14,  the 
screen  on  the  next  page  will  appear. 
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OUTPUT  MENU  SCREEN 

At  each  atop  check,  if  the  user  presses  PF-14,  this  screen  is 
displayed  showing  the  user  the  extent  to  which  the  requirements 
have  been  filled  thus  far.  At  this  point,  the  user  may  choose  to 
look  at  any  of  the  four  available  output  options.  If  the  user 
presses  the  PF-1  key,  the  screen  on  page  A-27  of  this  appendix 
will  appear. 

The  only  time  this  screen  appears  automatically  is  at  the  end  of 
each  main  iteration.  The  user  would  press  the  "ENTER"  key  and 
processing  would  then  continue. 
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NODE  FLOW  OUTPUT  SCREEN 

This  screen  displays  the  node  flow  values  which  are  the  annual 
flows  of  officers  out  of  the  various  nodes  of  the  career  path 
network.  Flows  will  be  shown  through  the  tour  that  the  model  has 
completed  processing.  In  order  to  return  to  the  screen  on  page 
A-26,  the  user  must  press  "ENTER". 
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OUTPUT  MENU  SCREEN 

If  the  user  wishes  to  see  the  Inventory  Output,  he  must  depress 
the  PF-2  key.  Inventory  consists  of  two  screens  -  the  first  of 
which  appears  on  the  next  page  of  this  appendix. 
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INVENTORY  DISPLAY  OUTPUT  SCREEN  #1 

This  is  the  first  of  the  Inventory  Output  screens.  Here  the  user 
enters  the  years  for  which  he  would  like  to  see  the  Inventory 
displayed.  After  entering  these  years,  the  user  should  depress 
the  PF-1  key  to  see  the  requested  output,  which  is  presented  on 
the  next  page  of  this  appendix. 
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INVENTORY  DISPLAY  OUTPUT  SCREEN  #2 


This  screen  displays  the  breakdown  for  each  activity  and  the 
years  the  user  has  requested.  In  order  to  return  to  the  Output 
Menu  screen,  the  user  must  press  the  "ENTER"  key. 
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OUTPUT  MENU  SCREEN 

If  the  user  wishes  to  see  the  Requirements  Output,  he  must 
depress  the  PF-3  key.  If  the  user  presses  the  PF-3  key,  the 
screen  on  the  next  page  of  this  appendix  appears. 
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REQUIREMENTS  DISPLAY  OUTPUT  SCREEN 

This  screen  displays  the  requirements  remaining  to  be  filled  for 
each  grade  in  each  activity  up  to  the  point  to  which  the  system 
has  processed  thus  far.  In  order  to  get  back  to  the  Output  Menu 
screen,  the  user  must  press  the  "ENTER”  key. 
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3.  RCRU1REMNTS 


OUTPUT  MENU  SCREEN 

If  the  user  wishes  to  see  the  output  concerning  Excess  Plow,  he 
must  depress  the  PF-4  key.  If  the  user  presses  the  PF-4  key,  the 
screen  on  the  next  page  of  this  appendix  appears . 
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EXCESS  FLOW  OUTPUT  SCREEN 

This  screen  shows  the  Excess  Flow  out  of  the  node  that  the  model 
could  not  assign  up  to  this  point  in  the  processing. 
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3.  f<rr<uir<e>€Ni8 


OUTPUT  SCREEN 


This  is  the  Output  Screen.  This  screen  identifies  for  the  user 
the  requirements  that  have  been  filled  and/or  met.  If  this 
screen  appears  in  the  In-Process  Mode,  the  data  is  only  valid  for 
that  portion  of  the  system  that  has  run  to  that  point.  However, 
at  the  end  of  Iterations,  this  screen  would  be  the  solution  to 
the  model. 
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RESULT/CONTINUE  SCREEN 

This  screen  allows  the  user  to  get  out  of  the  In-Process 
Monitoring.  It  also  displays  the  results  of  the  model  at  the 
current  iteration. 
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«  r>* 
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COMMUNITY  SELECTION  MENU  SCREEN 

After  the  system  has  met  all  requirements,  this  screen  will  reap¬ 
pear  giving  the  user  the  opportunity  to  run  another  series  or  to 
end  processing.  If  the  user  is  finished,  he  should  press  PF-16. 
Only  when  the  PF-16  key  is  pressed  will  the  user  receive  printed 
output  from  the  model.  The  pages  following  this  screen  are 
outputs  from  the  Aviation  Officer  Requirements  Model. 
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ATTACK  C0HHUN1TT 


I 

t 
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APPENDI X  B • 


PROGRAM  LISTING 


000010  *************************************  ********  ***************** 

■JO'CTUIE  ~* - —  5  “ 

000030  *  AVIATION  OFFICER  REQUIREMENTS  MODEL  * 

000040  *  VERSION  5.0  * 

U0T3US0  * - - -  5  “ 

000060  *** ********************  **********  **************  **********  *** 
000070  OIM  R0(30)#INVT(9*31)#N0<7)#T9SC7*7)26#T8(12)*T7(123*GQ<15*12)*  ! 

-(juooao  0TKT3  ;  3  T7T H  VTO  (  5 1  )  71 4  C  i  *'H  7T  5  M  1 )  ',Tt>  ( 1  2  V*T3TTer5  C  9  i  1 5  *  A2  C 7777 
000090  OIM  S1<15*5>#A1  <15*9}*TCQC7*5)*POC1Q)*C0<7*4>*AUX<15*6)#X$7O*  i 
000100  Q4<7*4>#0UTA<3)#N£T$<1Q)13C*CS7Q#Q33(7)  *T15  <123  *T$5*0$8*E$1  30 

aoin  to  TrornyrAT;?? t  n  TTYFFrrr  utct;  attzttttt/Ti  si  y  T707?o  sits  1 5 )  sv;vr  vrm 

000120  DIM  T1 7  <  1 2  >  #T1  8(12)  *037  C4}*I3S3*N$2#8S?0#A5Q(7)*T1GS(7#7)26 
000130  DIM  N9S C7 #7)1  *TD  ESS 30*0 ESS-3 0 


lit— ■  1 1  111  ■ 

COM  X4$13a*X5S130*TdAS(7)25*PTR(9) 

000150 

************************************************************ 

000160 

* 

* 

— —  llllll 

*■ 

* 

0001 30 

* 

ANO  LOADS  THE  BASIC  MATRICES  R0*G0#S1*A1 

* 

000190 

* 

TCQ  ANO  79$ 

* 

— W!l2£l!l 

* 

• 

000210 

************************************************************ 

000220 

REM  CONTINUATION  MATRIX 

—  llllll 

IHM 

5*2*4#3#l*i*4 

000240 

OATA 

•936*«676#.924*.9£0#.292* .65  2*0 

/♦VALUES*/ 

000250 

REM  GRAOE  MATRIX  GQ 

I—  i  i  i  n  ■ 

000270 

OATA 

2*4*11 *0*0*0*8*23# 35*G*0*0 

/ *VAL* / 

300230 

DATA 

1*2# 11 *1*2*1 1*3*23# 137*4# 15# 77 

/*VF  */ 

I  f  1  II  ■ 

DATA 

1*2*1 5*i*z#t3#  2*5#  44*2*6*31 

000300 

OATA 

1*2* 7*1*2* 12*2*6*34*2*5*33 

/*VA W*/ 

000310 

OATA 

1* 2*3*1 #3# 14*1 *3* 3 3*1 #3# 76 

/ *VAQ*/ 

llllll 

mu 

000330 

OATA 

2*4* 14*0*0*0*4*1 7* 57*'  #0 

/ *HS  */ 

000340 

OATA 

1*3*34*1*3*19*2*15*76*2*9*53 

/*VP*/ 

mini 

i— — — 

/*hSl1 */ 

000360 

OATA 

2*  1 7*41 *  0#  0*0*  2*1 3*39*0*0*0 

/*HSL2*/ 

000370 

OATA 

0*0* 0# 0*0*0# 0*0* 0* 0* 3# 0 

/*VQ  •/ 

- 300330 ' 

'OATA 

J*Q*0*0#Q*Q*0*0*J*0*Q*G 

/*F5  J  */ 

000390 

OATA 

0# 0# 0*0# 0* 0# 0* 0* 0# 0*0* 0 

/ *FS  P  */ 

000400 

OATA 

0*0*  0*0*  0*0#  0*0*  0*0* -3*0 

/  *  F  S  H  *  / 

■tmuj 

DATA 

1*5*1 *0*  0*  0#  0*0*0* 0#  0*  0 

300420 

REM 

SQUAORON  MATRIX  SI 

000430 

REM  i 

NO  SQ*  A/C  /SO*  CREW  FACT*P ILOT /CREW>  NFO/CREW 

b^Kl!£Z3£l 

/  *  V  A  L*  /  " 

300450 

OATA 

24*12*1.17*1*1 

/* VF  */ 

000460 

OATA 

12*14*1.14*1*1 

/  *  V  A  M  *  / 

DATA 

1  2*3*1 .66*  2*  5 

000430 

OATA 

9*4*1. 3*1*3 

/  *  V  A  Q  *  / 

000490 

OATA 

11*9*1.44*1.5*1.5 

/*VS  */ 

— M£l!l 

/  *rtS  */ 

300510 

OATA 

24*9*1.33*3*2 

/ *  V  P  */ 

300520 

OATA 

6*11*2*2*0 

/*HSLl */ 

* 

B-  I 


◦00530 

OATA 

8#15#2#2#0 

/•HSL2*/ 

imi 

◦#0#0#G#Q 

iin 

◦00550 

OATA 

0#  0#  0# ◦#  0 

/ *?S J  */ 

◦00560 

DATA 

Q#G#  Q#0#0 

/*FS?  */ 

uxnr 

u#u#u#U# 0 

/'*FSH  */ 

◦00530 

OATA 

12#0#0#0#0 

/•WING*/ 

000590 

REM  , 

ALLOCATION  MATRIX  A1 

IH^K1!1LL1LLLI 

Hzn  1 

aiaaam^naaamaaMaMagmaaaaaAmaimiiau 

■  all#  i i 

000610 

C0MMUNITY#CV#  ALL 

000620 

OATA 

1 #◦#. 1068,. 2 61 7,. 2 69Q#0#0# 0/ .0729 

/•VAL*/ 

imi 

/  *  V  f-  *7  ~ 

◦00640 

OATA 

1 #5#. 0475#. 1163#. 1195#. 1011 #.3 536#. 1744#. 0645 

/•VAM*/ 

◦00650 

OATA 

1#6#  -0311  #.07‘62#-0733#  -  0929#  1  #.16Q4#.0507 

/ *VA  W*/ 

mid 

■r»rri»>if#»i.n>miniTTu»>mHAmi HIM  |  |  tmm 

y ^1Tf ■  i,;: 

000670 

DATA 

1#5#.0503#.1 245#.1 279#.1092#1# .188 5 #.0694 

/•vs  */ 

000630 

OATA 

3#0#.0575#.1 883#-1447#0#0#0#.Q392 

/*HS  */ 

Mill! 

UA  1  A 

L*l #.£21 u#.  o / a/ #◦# .60a/ #  .9  t /0#0#.24/o 

7*TP  *7 

000700 

OATA 

3#0#. 0628#. 2057#0#Q#0#0#. 0430 

/•HSL1 */ 

000710 

DATA 

3#0# .1141# .3741 #0#Q#0#0# .0782 

/•MSL2*/ 

■  fTCTT^W^WTOgHHMWKIPmWH— 

II II  Ml  M  _  „ 

◦00730 

OATA 

1#7#.1004#.0352#0# .G27 6 #.032 9,0#. 0773 

/ *r S  J*  / 

◦00740 

OATA 

2# 7# - 1 004#. 1 26 3#0#. 0276 #.032 9# 0,. 0773 

/•FSP*/ 

U  A  I  A 

000760 

OATA 

1 #1 # -3972#0# 1 -◦# -5794# ◦# 1-0# -4550 

/•WING*/ 

000770 

REM  , 

AUXILLI ART  MATRIX  AUX 

KfcM  1 

000790 

OATA 

0  # 1 2  # 1 3#0#0#0 

/•AUX  VA*/ 

◦00300 

OATA 

◦#6#6#0#4#3 

/•AUX  VF*/ 

1  1  1  III 

□  At  A 

U#4#U#U#<J#U 

◦00820 

OATA 

0#2#2#0#2#Q 

/•AUX  VAW*/ 

Q00830 

OATA 

2#4#21#1#J#29 

/•AUX  VAQ*/ 

UA  I  A 

/ *AU x  VS*/ 

◦00850 

OATA 

2#10#4#0#0#0 

/•AUX  US*/ 

◦00860 

OATA 

◦#56#6#0#17#27 

/•AUX  VP*/ 

0W87TT 

WI 

u#o#0#u#u#u 

t  fcIVf 

000880 

OATA 

0#0#0#0#0#0 

/•AUX  MSL2*/ 

000890 

OATA 

4#  20#1 17#3#1  2#  140 

/•AUX  VQ  */ 

□  a  r  a 

i5#V0#<£<*^#0#!L#4/ 

◦00910 

OATA 

2#10#38#2#4#23 

/•AUX  FSP* / 

◦00920 

OATA 

16#65#276#0#0#0 

/•AUX  FSM*/ 

OAT  A 

u#u#u#0#u#u 

000940 

REM 

TRAINING  COMMANO  MATRIX  TCO 

◦00950 

REM 

J#P#H#RI0#TN# AT3S#NAV. 

◦00970 

OATA 

1.405#22#44#.860#0 

/•JET*/ 

300980 

OATA 

1  .291#7#14#.443#0 

/•PROP*/ 

■BSI 

I.  J*f#  /#H#«3*/#J 

001000 

OATA 

1-791#1#2#.180#-255 

/•RIO  */ 

◦01010 

OATA 

1.771#1#2#.118#.156 

/ *TN  */ 

1.6iO#1#l#.U/L#««j/  V 

◦01030 

DATA 

1 . 426# 1 #  2# . 0  3C  #  .  08  3 

/•NAV  */ 

◦01040 

REM 

POLICY  VECTOR 

/ *N  A  V  */ 


ti>-A117  920  INFORMATION  SPECTRUM  INC  ARLINGTON  VA 
'  AVIATION  OFFICER  REQUIREMENTS  STUDY. (U) 

may  82  F  E  O'CONNOR 
UNCLASSIFIED  ISI-V-2693-01 


N00014-B1-C-0368 

NL 


001050 

301060 

001070 

001C80 

-001090 

001100 

001110 


REM  PLOMBACK*PG*WARC0LLEGE*04/O4**05*O6*0OP4/0OP5*00P6 

OUT  A  ,05*.50*.5Q*«35*«2u*«73*.6'3/1*1/1 - 

REM  R&D*  AFLOAT *  OTHER  COTH  MATRIX) 

REM  05+*05*04*03- 


’  *  J  *  O  *  J  Is. 


DATA  96*97*1 30*  21 9*14*9  *60/ 82 
DATA  289*289*71 0*  634*91 *91  *  243*  31 2 


/♦AFLOAT*/ 

/♦OTHER*/ 


001130  FOR  I  »  1  TO  7 
001140  REAO  NO ( I ) 


001160  FOR  I  «  1  TO  7 
001170  REAO  A50CI) 

"JO  I  T  8  0  NEXT  1 - 

001190  GOSUB'  84 

001200  REM  LOAD  GRAOE  MATRIX  GO 

0012T0  FOR'  1  -«"1 . TO "15 - - - 

001220  FOR  J  =  1  TO  12 
001230  REAO  GOCIsJ) 

JOT?  40  NEXT  J - 

001250  NEXT  I 

001260  REM  LOAO  SQUADRON  MATRIX  SI 

00 1270  FOR  TT  T  TO . TS - 

001280  FOR  J  *  1  TO  5 
001290  REAO  SUIsJ) 

UUT3TT0  NeXT'  J - - - 

001310  NEXT  I 

001320  REM  LOAD  ALLOCATION  MATRIX  A1 

"001330  FOR”!  TO  T5 - 

001340  FOR  J  *  1  TO  9 
001350  REAO  Al CI*Jl 
JU136U  NEXT  J 
001370  NEXT  I 

001380  REM  LOAO  AUX  MATRIX 

001390  FOR'T'  «'"'"1  "TO  ’T5 - - - 

001400  FOR  J  *  1  TO  6 
001410  REAO  AUXCIsJ) 
jut  4^  Next  j 
001430  NEXT  I 

001440  REM  LOAD  TRACOM  MATRIX 

00  TWO  FOR  "  I  ”  T'TO  "T"  - - 

001460  FOR  4  »  1  TO  5 
001470  REAO  TC0(Is43 
JOT 4  80  NeXT  J 
001490  NEXT  I 

001500  REM  LOAO  POLICY  VECTOR  PC 


001520 
001530 
00  T  5  40 
001550 
001560 


REAO  PO(I) 

NEXT  I 

TTfM- L'OrtJ  OTh - 

FOR  I  *  1  TO  3 
FOR  J  a  1  TO  8 


B-3 


001570  READ  OTH  (I,J) 

"TOT5T3U  'N  sT  T  3 - 

001590  NEXT  I 

001600  OATA-FLEET  TOURS' 


"JOm 0~D'A  f  A " PL  cE  I  HbADINcSS  S"U LTSUTTON’ 
001620  OATA-TRAINING  COMMANO" 

001630  0ATA"R8O  COMMUNITY" 


TUU4U  DATA'^AFrOTT  AiSICUMcNTT" - 

001650  DAT  A" PROFESSIONAL  EDUCATION* 
001660  OATA"OTHER" 


U01670  DAT A"UNASSTGNET3" - 

001680  DATA"NON-AVIATION  ASSIGNMENTS' 
001690  FOR  I  *  1  TO  9 


UOTTOO- ft'TA  Ola  5TC  H 1 5 - 

001710  NEXT  I 

001720  OAT A”LIGMT  ATTACK' 


mjmu . PAT^TgHTnr - 

001740  OAT A"MEQIUM  ATTACK* 
001750  0ATA"6ARLT  WARNING* 


"JO1T60-0rU"ELcCTft0NlC  'UARFAftt 
001770  DAT A"CARRIER  BASED  ASW" 
001730  DATA"HELICOPTSR  ASW" 


001790  daT a'j Maritime  PATROL" 
001800  OAT A"LAMPS  MK  I" 
001810  OATA-LAMPS  MK  III* 


■rorffETT OTT Aw E L c CTITOnI C  wa^aR'S  -~TT 
301830  DATA-FORCE  SUPPORT  -  JET" 
301840  DATA"FORCE  SUPPORT  -  PROP" 


U0fff5(TDATA"F0RCE  "SUPPORT"-  HEL'C* 
301860  FOR  K  *  1  TO  14 
001870  READ  TYPESCK) 


J018S0  NEXT  K 
001890  DAT A"STRIKE" 

001900  DATA"MARITIME  PATROL* 


001910  DAT A^HELlCflPTER" 

001920  OAT A"RAOAR  INTERCEPT  OFFICER* 
001930  DAT A"TACTICAL  NAVIGATOR" 


J0l94d  DAT A  "  A  T  D  5  " 
001950  OAT A"NA VI GATOR* 
001960  FOR  K  *  1  TO  7 
U01 970"  REID  TRAKICJ - 


\  001980  NEXT  K 

001990  OATA"FIRST  FLEET  ITERATION  COMPLETE* 

'302050'  BAT A,,FIR,ST^T'OXIS~F'm'=TJP  COMPLcTE'" - 

302010  0ATA"CATE50RY  SEARCH  COMPLETE" 

002020  OAT  A"NFSA  *S  CREATED"  il 

'30'2'030 '  OATA"FIRST"'TO'UR  "LEWGTH  ACJUSTEP" 

002040  FOR  K  «  1  TO  5 
302050  REAQ  POSITS(K) 

0O206O  NeXT  K 

302070  *-*****.****************...****. 

302080  * 


002090  * 


AT  THIS  POINT  ALU  STANOARO  CAT  A  IS  LOAOEO.  AN  * 

TJU21UL  * - I N  T  E  S  A  CT rTi:~R0  U TIN g~T 0  TTOTTmc HliTG S S  FOLLOWS. - * 

002110  *  * 

002120  *  * 

UU7T30  **♦■**♦■<►********★*  *  *  *•**■*  ***»*»»*■**  *  *  **  **  ********  **********  **  ** 


002140  M  =  1 :  Q 1 1  =  1 
002150  AS  =  "NAVAL  AVIATORS" 

'U021 60  ft EITTO'A D  T9'5-WITF  TO'O'R  LENGTH  '  A!4D”B  A'RRSO  TOURS 
002170  DAT  A"3bOOONNNNNNNNNNNNNNNNNNOOO" 

002180  DAT A"36NNNNNN000NNNNNNNNNNNN000" 

UU21VU  DATT"i6NNNOUOUUUOOONNNUUUULUUUO" - 

002200  OAT A"36NNNOOOOOOOOOOOOO 00000000" 

00221 0  DAT A"36NN NO 00 0000000 OOCOOOOOOOO" 

JU222U  DAt  At'<i4J0u(jUOu00C0CUU0ULlUI3G0000" 

002230  D AT A-12000000000000000C 00000000" 

002240  DAT AMOONNNNNNNNNNNNNNNNNNNNNOOO" 

W225U  0 ATT" 3'6 UOUNffNNNKNNNN HTf ff RTffl NM 0 0 O' - - 

002260  DAT A"36000NNNNNNNNNNNNNNNNNN00Q" 

002270  0ATA"36000NNNNNNNNNNNNNNNNNN000" 

urez  ^q~prnrw7s  uo  ok  mwwwww  mwiKTONNou  o  - - 

002290  DATA"24000NNNNNNOOOOOOOQOOCOOOOM 
002300  DATA”24000NNNNNNNNNNNNNNNNNN000" 

J  0 2  3 1 0  D aTA**24UU U N NN Nn nN  nnnNNFN'RNN  NOU 0" 

002320  DATA"36000NNNNNNNNNNNNNNNNNNOOO" 

002330  DATA"36NN»NNNNNNNNNNNNOQOOCQOOO" 

002340  OAT  A“360ookMjNNMikNdd£Jo'0C0G0000" 

002350  DAT A"36000NNNNNNNNNOOOOOOOOOOOO" 

002360  DATA-240000000000000000000COOOO" 

00~237ff~DATA»i6MMWHNHOOOOOOOOOCUUUOUOUO" - 

002380  OATA"OONNNNNNNNNNNNNNNNNNNNNOOO" 

002390  DAT A"36OOONNNNNNNNNNNNHNNNNNOO0" 

'  J0'2400-0ATA'"56U0(JUUUU(j0NNkNNNU  JLNkNUUU" - 

002410  OAT  A "3 600 0000 NNNNNNOOOG 30000000" 

002420  DAT A"36000QOOOOONNNOOOCOOOOOOOO" 

002430  DATT"36000GOOOOOKNHOOCJCOOOC003C" - 

002440  DAT A"360000QOOOONNNOOOOOOOCOOOO" 

002450  OATA"OONNNNNNNNNNNNNNNNNNNNNOOO" 

JO 2 460  OAT A"UONNNNNkNNNNNNNNNNNNNNNOOO" 

002470  DAT A"24NNNOOOOOOOOCNNNO 00000000" 

002480  DAT A"24NNNOOOOOOOOCNNNO 00000000" 

002490  0 ATA"24NtoW0 000000 OONRHOOOOGOOOO" - 

002500  DATA"24NNNOOOOOOOOONNNOOOOCOOOO" 

002510  DAT  A" 2400 OOOOOOOOOONNNO 00000000" 

002520  DATA"00NNNNNNNNNNNNNNNNNNNNN0D0” 

002530  OATAm2400QNNNNNNNNNNNNNNNNNNOOO" 

002540  OATA"24O000O0OOOOOCNNNNNNOC0OOO"  • 

TJU733TT  OAT  A"  240000  OONWTIOGO'O'OOkkWOOOOOO" - 

002560  OAT A"1 2OOOOOOOOOOOOOOONNNOOOOOO" 

002570  OAT A"1 2OOOOOOOOOOOOOOONNNOOOOQO" 

J02580  DATA"!  2OCOOOOOOOOOC'0'60nnn0C0C00" 

002590  OATA"OCNNNNNNNNNNNNNNNNNNNNNOOO" 

002600  0ATA"360C0NNNNNNNNNNNNNNNNNN000" 


/♦FLEET  1*/ 
/♦FLEET  2*1 
/♦FLEET  777 
/♦FLEET  4* / 
/♦FLEET  5*/ 
/♦FLEET  6* / 
/♦FLEET  7* / 
/♦FRS  1  ♦/ 

/♦FRS  2 — *T“ 
/♦FRS  3  ♦/ 

/♦FRS  4  ♦/ 

/VFRS'~5 - *T~ 

/♦FRS  6  ♦/ 

/♦FRS  7  ♦/ 

7'*TR-AC“T-*7' 
/♦TRAC  2  ♦/ 
/♦TRAC  3  ♦/ 
/♦TRAC  4  *7' 
/♦TRAC  5  */ 
/♦TRAC  6  */ 
Y^TgAC  7  ♦/  - 
/♦RD  1  */ 

/♦ RD  2  ♦/ 

/♦RD  3 - *7““ 

/♦ RD  4  */ 

/♦RD  5  ♦/ 

/♦RD  6  *7~ 

/♦RD  7  ♦/ 

/♦AFLT  1  ♦/ 
/♦AFLT' 2  */  “ 
/♦AFLT  3  */ 
/♦AFLT  4  */ 
7*1  FLT"  5  ”/ 
/♦AFLT  6  */ 
/♦AFLT  7  */ 
/♦PROF  1  */'■ 
/♦PROF  2  ♦/ 
/♦PROF  3  ♦/ 
'/♦PROF’  4  ♦/ 
/♦PROF  5  */ 
/♦PROF  6  */ 

7  */  ■ 

/♦OTH  1  ♦/ 

/♦OTH  2  ♦/ 


002610  DATA"36O000Q00OO000NNNNNNNNNO00” 


•PI'KL'L'K  HUN I  Mi'  npiM 


0026  30  0ATA"36Q00C0000Q0aCNNNG00NNN00Q" 
002640  OAT A" 36 0000000030 QOOOOOOONNNOOO" 


»Hw.MWMrnfTi"fTi‘ri*ri‘iTiTnT[Ti‘irf  i fffnri 


/*0TH  3  */ 


/*0TM  5 
/*0TH  6 


002660  REM  LOAD  T9S 
002670  FOR  I  »  1  TO  7 


pi'M-TUBan 


002690  RSA0  T9S(I#J) 

302700  T10$(I#J)  =  T9$U#j) 


002720 

002730 


NEXT  J 
NEXT  I 


002750 

302760 


PPM 


JMP5001 :ACC£PT  AT(3#1Q)#' 


i  *  /m  * ~# 

AT(5#10)#"*"#AT<5#22)#"AVIATI0N  OFFICER  REQUIREMENTS  MODEL! 
'#ATC5#?0)#"*"#  ! 


i  lo/iu it  *  /#i  iB/aj/  *  / 

AT(7#1Q)#"  **************************************  ********** 


002780 

002790 


302810 

002820 


UUiOJU 

002840 

0028S0 


/lUi/  mt  AV1AI 

NES  THE"#  *  ! 

AT (10# 10)# "NUMBER  OF  NAVAL  AVIATORS  OR  NAVAL  FLIGHT  OFFICE! 


AT(11#10)#"lN  RESPONSE  TO  THE  SPECIFICATION  OF  OFFICER  RET! 
ENTION  ANO"#  ! 


AMETERS"#  • 

ATC14#10)#"THE  MOOEL  TREATS  NAVAL  AVIATORS  ANO  NAVAL  FLIGH! 


002870 

002880 


002900 

002910 


pcrwi 


002930 

002940 


002960 

002970 


ppr-ti-pi 


002990 

003000 


PPM'J 


003020 

003030 


pimmn 


003050 

003060 


H»ii>fiiwmii«»-iAiti>rwLiAHiir#iiUATiHtyinjAiiiTi 


003080  JMP5004:EN0 

003090  JMP5002:/*NAVAL  AVIATOR  DISPLAY*/ 


AT(15#10)#"SEPARATELY#  AND  BY  COMMUNITY.  IT  IS  PRESENTLY  « 
SET  TO  WORK"#  J 


#"IN  THE"#AT(16#21+LEN( A$))#FAC (HEX (94) )#TYPE$C Q11 )# 
AT<16#22*LENCAS)*LENCTYPES(Q11)))#"C0MMUNITY"# 


hi  uy/iuj/  iu  (.ununuc  hukmnI)  in  in 

•ENTER*"# 

AT (20*10) # "T 0  BEGIN  A  NEW  COMMUNITY  OF  AVIATORS  PRESS  - 


AT(21#10)#"T0  BEGIN  A  NEW  COMMUNITY  OF  NFO'S  PRESS  - 

PF-2"# 


HIUO/IUI#  IU  CNJ 

PF-16"# 

KSYS(3IN<0)4BIN(1  ) & BIN<  2 ) SE IN (1  6)  )  #  ON  CB  IN<0  )  531  N  (1  )  SB  IN  (  2  )  8BIN  ( 1  6 


PPP1PPKMN 


I  Ml  U/ 


003110  AT<5#10)#"r0U  M AY  SELECT  FROM  AMONG  FOURTEEN  COMMUNITIES  I 

303120  N  WHICH"# 


003130  AT(6*10)*"NAVAL  AVIATORS  ARE  REQUIRED.  THESE  ARE  LISTED 

TT03I40  kLUW. - JV; - - f 

003150  AT(7*10)*" PRESSING  THE  pc  kET  CORRESPONDING  TO  THE  ITEM  NU! 

003160  M8E R  ON"*  ! 

T3TJ31 70 - gTTg7Tcrrr**THF  Livi  ttju  will  "SkLEC r~N aval  a v iflrqirs~iTrTHrr  ! 

003180  COMMUNITY"*  ! 

003190  AT  (9*10)  *"FCR  ANALYSIS."*  ! 

JU-5ZU0  AT  (1 T75TT TF  kcT"*AT(n*l4l*"C0WMUNITY"*  AT  II  T745  JT"Pr”KET"! 

003210  *AT(11*54)*"C0MMUNITY"*  ! 

003220  AT(13*8)*"1"*AT(13*12)*"LIGHT  ATTACK"* AT  Cl 3*48>*"8 "* ATC1 3* • 

ITO323T3  5  2)  *"HA  R I  TIME  PATR-OU"* - r 

003240  AT(14*8)*"2"*AT(14*12)*"FIGHTER“*AT (1 4*4  8)* "9"* AT (14*52)*"! 

003250  LAMPS  MK  I**  ! 

1UJT6H - m"1T7 jr7nT"7mT57T'2T711  MTDTU'h"  A TT'A'C'R M7A  T  (1 5  * 47 )*"1C"* - T 

003270  AT(15*52)*"LAMPS  MK  III"*  ! 

003230  AT(16*8)*"4"*AT(16*1 2) *"EARLY  WARNING  -  VAW"*AT(1 6 *47) *"1 1 ! 

JUAZVU  J*AT  n  6*52j  *~ ELECTRONIC  WARFARE  -  VQ"*  T 

003300  AT(17*8)*"5"*AT(17*12)*"ELECTR0NIC  WARFARE  -  VAQ"* AT(17*47! 

003310  )*"1Z"*AT (17*52)* "FORCE  SUPPORT  -  JET"*  i 


*oj  *  o  * 


003330  AT(18*52)*"FORC6  SUPPORT  -  PROP"* 

003340  AT(19*8)*"7"*AT(19*12)*"HELIC0PTER  A SW"* AT (1 9*47) * "1 4"* AT ( 


uujjju  ir*j<j*  tukuc  aurruKi  neuu"*  • 
003360  AT (23*10)*"T0  RETURN  TO  SASIC  MENU  WITHOUT  MAKING  A  SELECT! 
003370  ION  -  PRESS  "ENTER*"*  J 


N 

003390  8)tSIN(9)S8IN(10)l8lN(11)8BlN(12) SB IN(1 3>SB IN(1 4>)*KEY(M5)*  ! 

003400  ON  8IN(0)  GOTO  JMP5001 


003420  M  «  MS 
003430  G11  *  M 


003450  JMP5003  J /*NFO  COMMUNITY  OISPLAY*/ 

003460  ACCEPT  AT (3*20) *"NAVAL  FLIGHT  OFFICER  COMMUNITY  SELECTIONS"*  l 


■IiMYitl 


003480  ICH"*  ! 

003490  AT (6*10) *"NAVAL  FLIGHT  OFFICERS  ARE  REQUIRED.  THESE  ARE  L! 


003540  THAT"* 
003550 


003570 

003580 


uuj} 

003600 

003610 


uu  jo cu 

003630 

003640 


AT (9*10) * "COMMUNITY  FOR  ANALYSIS"* 


MUN 

AT(13*25)*"1"*AT (13* 29)* "FIGHTER"* 

AT (14* 25)* "2"* AT (14* 29)* "MEDIUM  ATTACK"* 


AT(16*25)*"«"*AT(16*29)*"ELECTR0NIC  WARFARE  -  VAQ"* 
AT (1 7* 25)* "5"* AT (17* 29)* "CARRIER  BASED  ASW"* 


0  *«l\ia*tfV**  «AKiIiPt  r 8  I KUL  * 

AT (1 9*25)*"7"*AT (19*  29)*"ELECTRCNIC  WARFARE  -  VQ"* 
AT(20*25  )*"8"*ATC20*29)*"FORCS  S'JP!>ORT  -  JET"* 


B-7 


003650 


003670 

003680 


AT(21,25),"9*,AT(21,29),"F0RCE  SUPPORT  -  PROP", 


ION  -  PRESS  'ENTER'",  ! 

KE T S (SIN  CO) S8XNC1  )&SXNC2miN(3)&BINC4) SHIN (5) 8 3 IN (6) 38  IN (7) 8 BIN C i 


003700 

003710 


003730 

003740 


ii'HMWi.iMiiirn. 


IF  M5  *  0  THEN  JMP5001 

ON  M5  SOTO  ,,,,,JMP5006, JNP5007, JMP5G07, JMP50Q7 


Q11  *  M  -  15 
GOTO  JMP5011 


003760 

003770 


Oil  *  N  -  15 
GOTO  JNP5011 


pi*i 


PLIMWI 


003790 

003800 


Q11  «  M  -  15 

JMP5011 :FOR  I  =  1  TO  7 


kill 


p  00 3820 

i  :■  003830 

00(1, J)  *  0 
NEXT  J 

£  J0384Q 

ft*  003850 

t  ‘  003860 

l  *  _ 

NeXT  I 

REM  BEGIN  FILLING  00  WITH  REQUIREMENTS 

REM  FLEET  REQUIREMENTS 

‘MnrnTrrT~~r 

9 - 

i  003880 

r  003890 

FOR  J  *  1  TO 
INVT (8,1)  »  0 

31 

,  003900 

f  '  003910 

003920 

NEXT  j 

NEXT  I 

FOR  I  a  1  TO 

7 

kill 


14(1, J)  *  0 
NEXT  .1 


i  i 

OAT  *  24 

IF  M  >  15  THEN  JMP312 


003940 

003950 


PHFVZ-KKI 


003970 

003980 


I'l'Uli'V  f  KM  TV1 1 «  VI  Hill'Ll 


004000 

004010 


NFEA  *  0 
GOTO  JMP311 


-  - - — - - - 


004030 

004040 


JMP313:P5  «  LENCAS) 
P6  »  LEN(TYPES(Q1 1  )  ) 


fiiMii  i‘irf  nm  iTBi 


004060  P8  *  INT ( (59 
004070  21S  a  "YES": 

-  C10+P6))/2) 

22$  »  "YES": 23$  *  "TES" 

1  004030  INI T (hS 
f  i  004090  STR (PI S 
1  ,  004100  STR  (PI S 

x  ( 20) 
(1),1 
(1  ),1 

yrrrrn - 

,10)  *  "WORKING  ON" 

2,LEN(AS))  a  AS 

‘  004110  INITChE 
[  004120  STR (PIS 
f  004130  STR  (PIS 

IT  200" 
(2)  ,1 
(2),L 

37T5TT3 

,LEN(TYPES(Q11)))  *  TYPE$(C11)  i 

EN(TYPE$(Q11))+2,9)  «  "COMMUNITY"  j 

i  ;  004140  ACCEPT  ATT5, 

004150  *.*••**•**** 
004160  AT (7, 10),"*" 

*",AT(6,10) ,"*",AT(6, 70),"*",  ! 

,AT(7,10*P7),FAC(HcX(3C)),P1S(1),CHC33),  ! 

B-8 


I 

0041 70  AT<7#70)#"*"#AT(8#10),#"*“#AT(3#70>#,**"#AT(9#ia>  * 

- - jo,fno""*l>>Ti rrrrrrr^nrni i  (¥#7P3#"*"#at n ir;Tgr;**"#Ai  rrrrnrrr***-; 

004190  AT<11#10)#"*"#AT(11#10*P8)#FAC(HEX(3C))/P1$(2)#CH<33}# 
004200  AT<11#70)#"*"#AT(12#10) #"* 


004210 - **,/»H13/'T0j/**'****  vfvrvmnr * +**-*  mnrmnm  •  *■ 

004220  **  ************************’**  **"#AT (16#10)# 


004230  “00  YOU  OESIRE  IN-PROCESS  MONITOR ING?“# AT( 1 4/55 ) #FAC (HEX ( 31 )) # 
JTJ424U  Z1S#CH13J#AT(16#61  ( TTS7TfUT“7TT  (TS/I  0  T/'uu  tqu  OFSTTE  v»kiasl: 

004250  LENGTH  FIRST  TOUR ?“# AT ( 1 8/ 5 5) * F AC (M EX (8 1 ) > # 225/ CH ( 3) # AT ( 1 8# 61 ) # 
004260  “(YES/NO) "#AT<2Q#1Q)#"D0  YOU  DESIRE  UPWARD  DETAILING?"#AT  (20*55)# 
O04~27tT  FAL  (  H  e  XTFH  i  i  U  S  *  CHCi  1  #Xr(20#3TJ  V  “TT  ET/  N0)“#  AT  t24#10J#“PK  B'S'S'  ENTE' 
004230  R  TO  CONTINUE* 

004290  A  =  R02*10G :02  =  ROUNO (  A#0) : A  *  02 

J04~5Jcrjffp~6F2 ; yccE ?  i ~ri  c  571  o i  # ”th e  KYi  at  ion  1  of  KicTnrnrgwnggWFiny Trop'cr~T 

004310  S  LOADED  WITH"#  AT ( 6# 1 0 ) #"N0MIN AL  VALUES  OF  PARAMETERS  REQUIRED  T 
004320  0  0  ETERMINE  THE",  A T <7# 1 0 ) * “REQUI R EMEMT  F0R"#AT (7,26) /FAC (HEXC94) 

004330  ~) 7TS7TWT7TT #grT7>Z7>P5  )*"1N  TTTE*#yiT7#  3 ^P57 #PA CTHFXT947T7 - 

004340  TYPES (Q11)#CH(23)/AT(8#10)# "COMMUNITY*# 

004350  AT (1Q#10) #"YOU  CAN  REVIEW  ANQ/OR  ALTER  THESE  PARAMETERS  BY  PRESSI 
TJU'4360- NG  rHF"7TTT  1 T7T0 )  #”  "P FT E T  "CO R R'sYP'CNTrniS  fa  THE  ih«  Number:.  In 

004370  THE  LIST  OF"#AT( 1 2*10) ^"PARAMETER  CATEGORIES  GIVEN  9EL0W .  THIS 
004380  ACTION  WILL  CALL  UP”# AT <1 3# 1 0) #  “A  LIST  OF  THE  INOICATEO  PARAMET 
JU4390  EHV  UlT'H  lHblH  LUKKTNT  YffLUET^ - - 


004400  AT (1 5#20) #“PF  K£ Y"# AT(1 5 #30) # "PARAMETER  CATEGORY*# 

004410  ATC16#23)#"1"#AT<16#28)#"BASIC  COMMUNITY  DATA"# 


- J04570 - 

004430 

004440 

ATM  7773)#"/"#  AT  ITT#  i.  ET#  "T  R  A  I N IU  5~Tg13UTR  EWE  NTS  ~0'A  TST~, 
AT(18#23)#*3"#ATC13#28)#"P0LICY  VARIABLES"# 

AT <19#23)# "4"# AT I19#28)# "ALL  DC ATI ON  PARAMETERS-# 

□04450  — 

004460 

004470  -16*"# 

AT  12U#£A  J#W5'*#AT  420# #~C aR  Ifcttt  PATH  HfeTMORR"# 
ATC23#10)#"T0  RETURN  TO  COMMUNITY  SELECTION  MENU  PRESS  *PF 

TOTTED - AT  (24#1D)  #"T0'  CC^INUE*~PROGITAM  WTHOUT'  PARAMETER  gemiTW! 

004490  ESS  'ENTER*"#  ! 

004500  K£YS(8IN(0)S8IN(1)43IN<2)38IN(3>88IN(4)SBIN(5)i3IN(16))#  ! 

TTU45T0  ON  (BI)K0)8BIN(1  >&ET>UZrgBIN(T) &SIIT(4)g!nWTS')&BI>KY6>  )'~SOTCr - T 

004520  JMP591 # JMP592# JMP593# JMP594# JMP59  5#  JNP597# JHP596 

004530  JMP596:G0T0  JMP5001 

□04540  JMP59Z j/*3A5tC  DATA  “DISPLAY*/ 

004550  S  *  0:S1  *  0 

004560  IF  Oil  »  M  THEN  JMP601 

□04570  S  *  1 :S1  *  3  • 

004580  JMP601 :S  «  S*4:S1  *  S1*1 

004590  ACCEPT  ATC5#30)#“8ASIC  COMMUNITY  DATA*#  ! 

J 046' JO - AT('4#INT,<(75-IP5»F4+1  J7/2)  J  #  PTCC  ITEXTri )  )  7T YPc'5  (Cl  1  T7ZKU7T! 

004610  #AT(6#P6*1+INT((7  9-(F5*p6+1 ) > / 2) ) # FAC (HE X  ( 94) > # A$#C H ( 21 ) #  ! 

004620  AT<9#23)#"PARAMETER"#ATC9#45)#“CURRENT  VALUE"#  ! 

004630 - ATnO#1S')#"NUH85  3~OF  SDUADRONS*#  ATM  (J#3l)  3 '# 5 1  (011~#1  >7 - T 

004640  PIC<#*>#  ! 

004650  AT(11#15)#"AIRCRAFT  PER  SQUA DRON"#AT (1 1 # 50>#S1 (Q11 #2)#  ! 

"JO'4'64'0 - PTCCf'iT; - T 

004670  AT  <1 2#1 5  > # "CREW  FACTOR"# AT C 1 2#51 >#S1 <Q1 1 #3) #PXC (*.**) #  ! 

004630  ATC13#15)#FAC<hEX(3C))#AS#CHC21)#AT(13#16^P5)#mPSR  CREW"#  ! 


B-9 


004800 
004810 
-jergsju 
004830 
304840 
'11048  bU 
004880 
004870 
'JCT488U 
◦04890 
004900 


|i  [irrj  i|Mt 


i  wm  n  w  vm  •  i:i  k  i  • !  o  p  m  m  mb  i  a :  i  m  «»i:  mvi  m  rvi* •  m  «««.  j.  #  i 


AT (21/53)/"PER  CENT"/ 

AT <2 2/10) /"**** ************* ********  **** **********  ******** 


AT(23/1Q)/ "PRESS  PP-1  TO  RETURN  TC  CATEGORY  MENU  WITHOUT  E 
NTERING  CHANGES"# 

- A rT2'4';TJ3# ‘■PRESS'  ENTER  TO"Rfc'LORD  LBAWtS  AND"UCTNTJ.NUfc"/ - 

KEYS(aiNCQ)SBXNCI))/ 

ON  SINCT)  GOTO  JMP602 

G-(JTIT'JHP6'02 - - - 

JMT>593:/*TRAINlNG  REQUIREMENTS  DISPLAY-*/ 

S  *  Q:S1  *  0 


004920  S  *  3:S1  *  1 

004930  JMP603:S  *  S*7:S1  »  $1*1 


l  *  l  r  Ct i *  l 


FI'LYni»W< 


004950 

004960 


MU*»7  f  U 

004980 

004990 


JU^UUU 

005010 

005020 


005040 

005050 


005070 

005030 


yyj ory 

005100 

005110 


005130 

005140 


003 I 3  0 

005160 

005170 


'JO  3  I  OU 

005190 

005200 


AT (6/ INT (< ?9-(P5*P6+1 >) /2>)/ FAC (HEX (94))/ TYPE* (Q11)/CH(23)‘ 
/AT(6/P6*1*INT((79-(P5*P6*1 >)  /2> ) /FAC (HEX (94) > / AS/CH( 21 ) /  ‘ 


AT(10/10)/"FUEET  READINESS  SQUAORCNS  (AGGREGATE  REQUIREMENT 


AT(11/20)/"C0MMAN0ERS"/AT(11/53)/G0O11/S)/PIC(jm/ 
AT(l2/20)/"LT.  COMMANDERS"# AT(12/53)/G0(Q11/S*1)/PIC(R*)/ 


ij 


AT (1 4/ 1 0) / ' 
►  *♦****"* 


FAC(H£X(6C))/TRAf  < A1 ( Q11 /  SI ) ) /CH( 23) / 
AT(15/33*LEN(TRAS (  A1  (  Q11  /  SI  )  )  )  )  / 


AT  C16/20)/"C0MMANQSRS"/ AT(1 6/53) /TCO  CA1 (Ql1/S1)/2)/PIC(##) ! 
/AT ( 17/20) /"LT.  COMMANDERS"/ AT (1 7/53J/TCCCA1 <Q1 1 /SI > / 3)/P IC (#») /  ! 


TC0<A1 <G11 /SI >/4)/PXC< #.*«*>/ 
AT(l9/20)/"INSTRUCT0R  NFOS  PER  G R ADU ATE" / AT (1 9/ 54) / 


iwtnj, 


AT (20/10)/ 1 


nc«u  w  i  t  ~iou  i  c 

NTERING  CHANGES"/ 

AT<24/1Q)/"PRESS  ENTER  TO  RECCRC  CHANGES  AND  CONTINUE"/ 


■ 


005210  KEYS(SIN(0)&8IN(1 )  )  # 


005250 

005240 

1305250 

005260 

005270 

UOTZ'StJ" 

005290 

005500 

UU55TU 

00S520 

005550 

UU5J4U 

005550 

005560 


GOTO  JMP602 

JMP  594: /*P0LICY  VARIABLES*/ 

~SCCTPT~A  T  {  5  /  3  2  3  /  "  P 0  L I C  T'lnnrarecrS'"/ - - 

AT(6#tNT((79-(P5+P6+1))/2) ) / FAC(HEX(94) ) /TYPES (Q11 )/CH(23> 
#AT(6#P6+1+INT((79-(P5+P6+1 )) /2))/FAC (HEX (94))#AS/CH(21)# 

- ATTT57T0T'r*PI13¥g'Slir  INS T dUCTT  UR'S  ORAiriUN'  ’J F  "G R  A  U  0 ATE~ST"  /  ~ 

AT(15/60)/P0(1)/PIC(P.##)/ 

AT (17/10)/ "POSTGRADUATE  FLOW  (FRACTION  OF  12  YEAR  COHORT ) " 

;  A  T  (T777JU  );PUC  27  /  P I  CC  STS# TV - 

AT(19#1Q)/"WAR  COLLEGE  FLOW  (FRACTION  OF  18  YEAR  COHORT)"/ 
AT(19#6C)#P0(3)/PIC(I*.P#)/ 


’*#***  ******************  ****  ' 


**+«*********' 


AT  (23/10)/ "PRESS  PF-1  TO  RETURN  TO  CATEGORY  MENU  WITHOUT  E 


005380  AT (24# 10) /“PRESS  ENTER  TO  RECORD  CHANGES  ANO  CONTINUE"# 

005390  K£YS(8IN(Q)&BIN(1))# 


005410  GOTO  JMP6Q2 

005420  JMP595:/*ALLOCATION  PARAMETERS)*/ 


005440 

005450 


JU346U 

005470 

005480 


005500 

005510 


005530 

005540 


00S560 

005570 


jussdti 

005590 

005600 


005620 

005630 


64 
005650 
005660 


0056 7Q 
005630 
005690 


005700 

005710 

005720 


IF  M  *  Oil  THEN  JMP604 
SI  *  3:S  *  1 


MP6 

ACCEPT  AT (5#30) /"ALLOCATION  PARAMETERS"#  f 

AT(6#INT((79-(P5+P6+1))/2) ) # FAC (HEX ( 94) ) #TYPES(Q11 )/CH(25>» 


'iif.yii-utMiiKtAaimxuifrMvn/Mcmi'iYiniflCiMU 


AT(1 2# 10)# "FRACTION  OF  ALL"# AT(12#26)#FAC (HEX (3C ) ) / AS#  !- 

CH (23)# AT (12/65)# Al(Qt1#S1)#PIC(#. **##)/  ! 


TRAS( A1 (C11/S)) /CH(23)/AT(14#  23+LSN (TR A S ( A1 (Q1 1 ! 
#S)  )>)#FAC(HEX(  30)  #AJ#CH(21)/AT(  14/65)  #Al  (311/  S1*1)  #PIC  (  *.*#*#>/! 


■<«  ns  (•iywiTT4  *  (•mi'iifiMHitfnu  mi'iiuwcT««i>*» 


AS#CM<21)#ATC16/65)#Al(C11/S1+2)/PIC(#.####)# 
AT (1 8/10) / "FRACTION  OF  ALL  A VIATION  OFFI CERS"/ AT(1 3/ 65) / 


AT  (21#10)#' 


NTERING  CHANGES"# 

AT (24/10) /"PRESS  ENTER  TO  RECORO  CHANGES  ANO  CONTINUE"/ 


K£YS(3IN(0)&BIN 
ON  BIN ( 1 )  GOTO  JMP602 
GOTO  JMP602 


M 

ACCEPT  AT (2/10) /"YOU  CAN  INSPECT  ANO/OR  MODIFY  THE  CAREER  PATH  NE! 
TWORK  CHARACTERISTICS"/  ! 


NY  NCOS  IN  THE  N 

ECT  A  PARTICULAR  NCOS"/  ! 

AT(4/10) /"REPLACE  ThE  '0'  IN  THE  DIAGRAM  BELOW  WITH  AN  'X' 


B-ll 


005730  .  TO  B  TP  ASS  A  NODE"* 


uuj  r«*u  fl  i  13  /  I  J;  / 

005750  AT (7/49)/" TOUR  NUMBER"/ 

005760  AT(9,23),"  ACTIVITY*,,AT(9,42),M1 


Il'nniHBHUH  knUfUMliltlt-Mlll  »1:U  UAinjU  I 


005780  N9$(1,1),AT(11,46),FAC(HEX(38)),N9S(1,2),AT (11,50),! 

005790  FAC(H6X(83)),N9i(1,3),AT(11,54>,FAC(HEX(88)),  ! 


005870 

005830 


iliHU'l 


005900 

005910 


005930 

005940 


•I'rt'M'l 


005960 

005970 


005990 
006000 
006010 
006020 
006030 
"0  061740 
006050 
006060 
"006070 
006080 
006090 


006110 

006120 


I'Mfrlil 


006140 

006150 


imr.tti 


006170 

006130 


006200 

006210 


Miirroi 


006230 

006240 


HeX(c3)),N9S(Z,4),AT(i2,58),FAClHEX(c3 
N9S(2,5),AT(12,62),FAC(HEX(88)>,N9$(2,6), 
AT(12,66),FAC(HSX (8 8) ) ,N9S< 1 , 7) , 


N9S(3,1 ),AT(13,46),FAC(H6X(38>),N9S<3,2), 
ATC 13, 50), FAC (HEX (8 8) ) ,N9S ( 3,3) , AT (1 3, 54) , 


,N9  » 

N9S( 3, 5), AT (13, 62), FAC (HEX (38)) ,N9$(3,6), 
AT (13, 6 6), FAC (HEX (  8 3) ) , N9S ( 3, 7) , 


N9S(4,1),AT(14,46),FAC(HEX(88)),N9S(4,2), 
AT(14, 50),FAC(HEX (88)),N9S(4,3) , AT (14, 54) , 


,N9  5  14,4J,ATH4,5  3)  ,FAC(H 
N9S (4, 5), AT (14, 62), FAC (HEX (38)) ,N9S(4,6), 
AT(14,66),FAC(HEX (  8 3) ) , N9$ ( 4,7) , 
r/F6  Ct  H  FX  TTC )  >  ,  L  A  6  E  LT  C  5  )  ,  AT  Cl  574T)  TFfC  (  HFx  Cl 
N9S(5,1 ),ATC15,46),FAC(HEX(88)> ,N9$(5,2), 
AT(15,50),FAC(HEX(88)),N9S(5,3),AT(15,54), 
FAC(HcXt83jJ,N95(5,4),AT(T5,53),FAClHcX(83: 
n9S(5,5),AT(1S,62),FAC(HEX(S8)),N9S(5,6), 
AT(15,66),FAC(HEX ( 3 8 ) ) , N9S( 5 ,7) , 
I,FAC(H£X(3C)),LABELS(6),At<16,42),FAC (HEX ll 
N9$(6,1),AT(16,46),FAC(HEX(88)),N9S(6,2), 
AT(16,50),FAC(HEX (8 8 ) ) , N9S ( 6, 3 ) ,AT(16,54) , 


N9S(6,5),AT(16,62), FAC(HEX(88) ),N9S(6,6), 
AT(16,66),FAC(H:X (8  3)  ) , N9S ( 6, 7) , 


N9S (7, 1 ) ,AT(17, 46 ), FAC (HEX (88)) ,N9$(7,2), 
AT(17,50),FAC(HEX (8  8) ),N9$(7,3) , AT (17, 54), 


UMIMICCtVYlL’l'MtfnfllMtfUtVUimKtHXtH 


N9S(7,5 ),AT(17,62),FAC(HEX( 38)) /N9S(7,6), 
AT (17, 6 6), FAC (HEX (88) >,N9S(7,7) , 


,  IU  BCbiN  NUt  C  1N5PSU 

PRESS  'ENTER'", 

AT( 24,1 0) ,"TQ  RETURN  TC  CATEGORY  MENU  PRESS 


►'p  i  , 

XEYS(HEX(OC01)),ON(3IN(1))  GOTO  JMP6C2 
FOR  I  *  1  TO  7 


006250  FOR  J  *  1  TO  7 

lUSZSW  lr  NI7UI*J3  £  HcX  (6r)  "1  Hcr~JMP!?99 - 

006270  ACCEPT  AT (1  *  30) /"MODE  C HARACTE R I  ST  I CS"* 

006280  AT (3*10)* "NODE  CHARACTERISTICS  ARE  REFERRED  TO  THE  OUTPUT 

T306290  ENU  OF  I  HE  '  AHl*/ - - 

006300  AT(4*10)*"IN  QUESTION.  THAT- NODE  IDENTIFIES  THE  ACTIVITY 

006310  IN  WHICH  THE*** 

1U3T2TJ - iron 03  T^JFTTTE  3“  TT  i TTG A"G ETTT nmrm  VTTT~ ATTCrTG UK~  WJH '4k 

006330  R  CURRENTLY"* 

006340  AT(6*10)*"3EING  EXAMINED  IS:"* 

THJK3T0 - ATCH*1  5)  *7ATTB57  men  *UA3~E  CYC'IT7 A'T(1T*42 IT^TOITR  ITOM'HTE'TT** - 

006360  AT(8*55)*FAC(HEX(8C)>*J*PIC(#>* 

006370  AT(10*10)*"F0R  TOURS  TERMINATING  AT  THAT  NODE"* 

W6'3<ro - AT'n  t  *  n3'yr"THt~forLCT  i  nc^va  hje'S"  tptuttt - 

006390  AT(13*34)*"T0UR  LENGTH"*  AT  ( 1  3*  50  )  *F  A  C  (HE  X  (  39)  )  *  $  "CT?S(I*j 

006400  )*1*2)* 

W5'4TU - ATrr5 V TTJ77 "PTTEUE D'E HT~ 'HOT'S - ST«TF"7TT  CT5/S  ""FSTFCTOF 

006420  NT  NOOc  STATE"* 

006430  AT  (1 6*5)  *F  AC  (HEX  (80  )  *LA3ELS  (1)  *  AT(1  6*  33  )  *FAC  (  HI  89))* 

Ju64aO  ST RTT75  C  I*  J) 737 3 )  *  A  T  n  6745T7F  A CTHc  X 1 8'C  "'3TLTTZ 


006450  )*AT(16*73)*FAC(HEX(89))*STR(T9S(I* J)*6*3>*  ! 

006460  AT(17*5)*FAC(HEX(8C))*LA3ELS  ( 3)  *  AT(  1  7*  33  )  *  FAC  (  HEa  89 )  )  *  ! 

TJU5V70 - STRTT7STT*  JO  7Ti  7T  *  A,TTT7r**43T*yAC'THe'X  CBC77  /UATEL  ST  4T 

006480  )*AT(17*73)*FAC(HEX(89))*STR(T9S(I*  J)*1 2*3) *  ! 

006490  AT(13*5)*FAC(H£X(8C))*LA3EL$(5)*AT(18*33)*FAC(HEX(39))*  • 

DTJoTOU - S T R"CT 7 S  (I *  JT/T5TJ T7 TTZTJ77T )  * rfCTHEXTSaTTITggO TT 

006510  6)*AT(18*73)*FAC(HEX(35))*STR(T9$(I*J),18,3)*  1 

006520  AT(19*5)*FAC(H6X(8C))*LA3ElS(7)*AT(1 9* 33 ) *FAC (HEX ( 39 ) ) *  * 

W5T30 - STB  umi*  JO /2173)* -  T 

006540  AT (2 1*20)* "NOTE  -  *NNN*  MEANS  THAT  THE  PRECEDENT  NODE  IS  B‘ 

006550  ARREO"*  ' 

006560 - 4rC23*5')*"rU  EXIT'  WITHOUT  MBRTNT>-'CHAN'GES_PHKSY  -pf-1'"*  T 

006570  AT (24*5) *"T0  ENTER  CHANGES  PRESS  'ENTER'"*  ! 

006580  KEYS(MEX(0001))*QN  (BIN  (1 ) )  GOTO  JMP599 

1306570  JMP5V7;NEXT  J - — 

006600  NEXT  I 
006610  GOTO  JMP602 

0Oo620  JMP591:IF  A  *  dZ  THEN  JMP6C3 


006630  R02  *  02/100 

006640  ACCEPT  AT ( 5 *  1 0) *" YOU  HAVE  REQUESTED  A  CHANGE  IN  RETENTION  FOR"* 

006650 - ITT5753T7FTCTHFX  ('3CTT7ST7CHT  2T)~* - 

006660  AT (6*10) *"IN  THE"* AT (6* 1 7) *F AC (HEX(8C ) ) *  TYPES ( Q11 ) *CH(23 ) * 

006670  AT (6* 1 8*LSN(TYPE  S (Q1 1 ) ) ) *"C0  MMUN ITY" * 

106630 - mr*n3T7"Tffir  UI'LL~  CA'uS=  A  CFANGE  IN  TETET'ONTIKUA  TTOKI  VEC 


306690  TOR.  THE  FOUR"* 

006700  AT(8*10)*"PARANETERS  WHICH  OEFINS  THIS  VECTOR  ARE  OISPLAYE 

11J57T0  'O'  BELOW  FOR"* - 

006720  AT(9*10)*"FEVISW  ANO/OR  CHANGE"* 

006730  AT (12* 10)* "RETENTION"* AT (1  2* 45) *  02* P IC ( # *> * AT (1 2*4 3) * 

305770 - "~FSTT  C  E’NT"'* - 

306750  AT (14*10)* "MINIM UM  SERVICE  R ECUI REME NT"* AT C 1 4, 45 ) * RO  3* 

3C6760  PIC(««)*AT (1 4* 43)* "YEARS"* 


B-13 


w 


006770 


AT <16, 10), "RETENTION  POINT  ",  AT < 1 6/45  > ,R0 4, » IC ( ##> , 


33  67  50 - ATC16, 48), "TEARS "V - 

006790  ATC1  3,10), "CAREER  STABLE  POINT", ATC1  3,45),R05,PIC(#P), 

006800  AT <1 3,48>,"Y£ARS", 

006810  AT  (.21/10)  iDifiiiH  *  rfi"»Tr»«T«  *t»  wwmrrrrv-w  iwrivti r* 

006820  *************", 

006830  AT(23,-1Q), "PRESS  PP-1  TO  CONTINUE  WITHOUT  CHANGING  THE  CON 

006840  flNUATTON  'VECTOR"; - 

006850  AT<24,10), "PRESS  ENTER  TO  MAKE  CONTINUATION  VECTOR  CHANGES 

006860  ", 

306870  K£  T'STBTfrnn  t'B'l NCI  )  ) , - ! i 

006880  ON  BINC1)  GOTO  JMP612 
006890  IF  A  *  02  THEN  JMP606 

'336900  W07~t~P77TOO - 

006910  GOSUB*  64 CR02, R03, R04, R 05 ) 

006920  A  =  R02*1 00 

305730"  JHP61 2TRU2  “=~ S7T0U - - - 

006940  JMP606:GOSU3*  63 

006950  ******-*******************-************************************ 


036950  * - “ - r 

006970  *  MODIFICATION  OF  DATA  COMPLETE.  BEGIN  REQUIREMENTS  * 
006980  *  CQMPUT ATION>  * 
U 06990  * - *“ 


007000  *************************************** **** ****************** 
007010  IF  M  >  15  THEN  NFO 

JU7U2Q  P  =~ 3:Tr~~4TB"^"~H - - - 

007030  IF  n  >  10  THEN  OFILL  ELSE  CONTI 
007040  NFO:P  »  6 :N  *  7:B  *  M  -  15 

U'U7UyO  IF  'ff  >~~ 2 5~ TFTE~N  'DFRL - ■ - - 

007060  CONTI  ;IF  M  >  15  THEN  01  *  SICB.,5)  ELSE  D1  *  S1CB,4) 

007070  00(1*ABS(P-N)>  *  CS1(B,  2)*S1  C8,3>  *D1-GQ  (B,P-1  >-GO<B.-P -2)  )  *S1  CB,  1  > 

JQ7U80  ms  k  =  P-1  TO  P-2  STEP  -1 - - 

007090  00 ( 1 , AB S ( K-N) )  a  G0(B,K)*S1 CB,1 ) 

007100  IF  A1(B,5)  »  0  then  C0NT2 

UCJ/’llO  |F  M  1  THEN  CON 72  ~ 

007120  00<1,A8S(K-N))  a  00 <1 , A BS (K-N) ) +GOC 1 5,K > *S1 Cl 5, 1 ) * Al <B,2+P> 

007130  C0NT2 SNEXT  K 

337TT3  GUIT,47  LOCI  b, P  -  2  T-*  STT  T"5~, 1  )'* A TC 777*?") - 

007150  DFILLlFOR  K  =  P  TO  P-2  STEP  -1 

007160  00(1 ,A8S(K-N) )  *  00 < 1 , A 3S <K -N) >  ♦  AUX(B,K) 

U07T7U'  HETT'  K 

◦07130  REM  FRS  REQUIREMENTS 
007190  P  «  P  ♦  6:N  «  N  ♦  6 
33773D- TF- G3TBm  =  u  then  rRAtl 
007210  FOR  K  a  p  TO  P-2  STEP  -1 
007220  00(2,A3S(K-NJ)  a  00<B,K) 
jU/230  Ntxi  K 

007240  A  a  0  /*  FR  $  30NUS  BILLETS*/ 

007250  IF  G0(8,10)  >  0  THEN  NNFO 

JU7261)  IFTT  5  TFETJ  TRA31 - * - 

007270  A  =  2 
007280  NNFO: A  *  4  ♦  2 


007290  IF  G0(8 /P-2)  >=  A  THEN  FRS1 


1 

! 


•JQ73  00-  A  =  1 - 

007310  FRS 1 : 00 (2/4 )  *  A/2 
007320  00(2/3)  =  00(2/3)  -  A/2 

'307330“  I  KALI  iKfcM  T  WAINrN0'"C'0HBAN0_Kt  JUiK  fcM  fcN  I  2>  (Lfcbb  HK51  rjl/ITT 

007340  IF  P  *  12  THEN  INFC 

007350  00(3/3)  *  TCO ( A 1 ( 3/ 1 )/2 ) *A1 (B/ 4) 

UU/'i6U  D0li/2)  =  TU0TATT37TT73T*TTTS"75"7 
007370  GOTO  OTHER 

007380  INFO:  00(3/3)  =  TCO ( A1 ( 3/ 2) / 2 ) * A1 ( 3 /7) 

0073 yiT DDTJ77)  “T COTATC  STTi  / 13 *AT  (3/  7) - 

007400  OTHER :REM  D0(  )  4  =  R&D  /  5  *  AFLOAT/  7  *  OTHER 
007410  N  =  3: A  *  0 

"JU7'4  2  IF  P"  p— --g - 

007430  IF  p  >  3  Then  ONFO 
007440  A  *  5  :GOTC  OPIL 

007%  bU"  0NF'O:a~— "9 - - 

007460  OPIL:FOR  I  =  4  TO  7 
007470  IF  I  »  6  THEN  ESCP1 

'JO  7480 "  F'OJT  'J- =  ”1“T0— 4 - 

007490  DO ( 1/ J)  a  OTH(I-N/ASS(J-A) )*A1 (3/P) 

007500  NEXT  J 


UU  /  bill''  GOTO  our  I - 

007520  ESCP1:  N  =  N  ♦  1 
007530  OUTI :NE XT  I 


- TO  75  40" 

007550 

007560 

GOS’Ufi’-  31 

*  * 

UU7T7TT 

♦ 

00(  )  15  NOW  LOADED  WITH  ALL  VALUES  EXCEPT  TRACOH 

* 

007580 

* 

FIRST  TOUR  ANO  PROFESSIONAL  EDUCATION.  BEGIN 

♦ 

007590 

* 

CALCULATION  OF  ENTRIES  TO  INVT  MATRIX/  INVTO  IS 

* 

□07600 

* 

WORDING  Fite. 

* 

007610 

* 

INVT(8/->  a  TOTAL  LINS 

* 

007620 

* 

INVT (9/-)  a  CUMULATIVE  INVENTORY  LINE 

* 

~  007630 

* 

* 

007640 

007650 

02  * 

0 

007660 

FOft  J 

=  1  T  O'  "4  ' 

007670 

FOR  I 

a  1  TO  7 

307630 

02  * 

02  ♦  00(I/J> 

“  007690 

"FTETT- 

I 

007700 

NEXT 

J 

007710 

C5  » 

1 : R08  »  0 

307720 

FOR  J 

=  1  TO  30 

007730 

R08  = 

R08  *  C5*(1 *RQ(J>  ) 

007731 

C  5  * 

C5  *R0( J) 

“  007732 

NEXT 

J 

307733 

10  * 

(2*02) /R08 

007734 

GOSUE 

'  53(10/12) 

007740 

FOR  X 

=  1  T5  31 

007750 

INVTO(K)  a  INVT(8/R) 

307760 

NEXT 

K 

B-15 


007770  Q10  =  0 
oj.'rau  for  i  =  i  nr-? 

007790  038(1)  =  0 
007800  FOR  J  =  1  TO  4 

TT07-3T  0'"U4TI  7J7~5~PUrrTJ7 - 

007820  NeXT  J 
007830  NEXT  I 

DO 7840  CONVERT  STrTrTTTTTTl TT 1 77 J~~T 0  Til - 

007850  JMP300:R£M  COMPUTE  TRACOM  FIRST  TOUR  NUMBERS. 

007860  L  =  1 

DU7B70  IF  M  "<T~15_THEN  JMP25 
007880  L  *  L  ♦  1 

007890  JMP25:D0(3/1)  =  00(3/1)  ♦  TCO (A1  (Q1 1/L) / 3+L )*IN VT0C31 ) 

OTTVUU-REM'  COMPUTE  “FROFE  rST(JTTAT"'lX"UC i'T  IO'M  NCIH5TR5 - 

007910  00(6/1)  =  00(6/1 )  ♦  PO ( 2 ) *INVTO ( 1 2 ) *  2 
007920  00(6/2)  *  00(6/2)  ♦  PO ( 3) * INVTO (1 8) * . 5 
007930  DO (6/3)  =  00(6/3)  4  P0C'3)*INVT0  (I8)  '*".5 
007940  FOR  I  =  1  TO  12 
007950  T5  (I)  *  0 

007960"  T 6  C I 'J  *  D - 

007970  T7 ( I )  =  0 
007980  T8 ( I )  =  0 

00/990  NEXT  I - 

003000  IF  Q10  >  0  THEN  JMP322 

003010  FOR  J  *  1  TO  4 

005020  D3(J)  =  0  ' 

008030  FOR  I  *  1  TO  7 
008040  03 (J)  *  DS(J)  ♦  DOCI/J) 

"JUW50~NETT"I - 

008060  NEXT  J 
008070  010  «  1 

"J03U80'"JMP'3Z21  REM  COMPUTE  FRONT  END  NUMBER'S - 

003090  CONVERT  STR (T9S (3/ 1 ) /I / 2)  TO  T1 2 
008100  03  »  (INVT0(31)*P0(1))*(R0(1)**(T11/12)) 

uomo  02  D3*n  +  cRT]n3  4*nn7i2j;;*m/24 - 

008120  GOSUB'  55 (0/T1 1 /INVT0<31 ) *(1-P0 (1 ) > /1/1 > 

008130  IF  T50  <*  1  AND  C  <*  D0C1/1)  THEN  JMP881 

JU3140  'IF  "ABS(C“ (00(1/1)  “02)0  <  TIN V TTT7TTT7T2T*IT  T  WE  T^J  M  PT  3T 

008150  IF  22$  <>  "YES"  THEN  JMP832 

008160  GOSUB'  52 (T1 2/ INVT ( 8/31 ) /04 (1 / 1 ) / RO  ( 1 ) ) 

1)081 7CT  GUTD  "~3WTrgyi - 

008180  JMP883:G0SUB*  62CC/00C1 /1)/1 ) 

003190  JMP881 : FOR  K  *  1  TO  12 

008200  T5U)  =  non - 

003210  NEXT  X 

003220  14(1/1)  «  14(1/1)  ♦  12 

"JO^TJO'COimRT'STRTTTSnvrT/S'/Sr  1 U  U2 - 

003240  02  «  D2  ♦  INT(C2*.5) 

008250  CONVERT  02  TO  STR (T9S(1 ,1 ) / 3/3) /P IC  (*¥* ) 

J'0'3'2  6U~D0'n  7TT . «“""3  OCT'/  TO  -~L - 

003270  PI  *  12 

003230  IF  P0(1)  *  0  THEN  JMP930 


008290 

GOSJB' 

55(0, T12, 03, 3,1) 

1 — T0T2 - 

003310 

003320 

T6(R)  = 
NEXT  R 

T  3  (  R  ) 

14(3,13 

’*“14(3, 1)  +  12 

003340 

H3  =  12 

008350 

CONVERT 

STR(T9$(3,1),3,3)  TO  02 

♦  T7TT  IL2+.5) - 

008370 

CONVERT 

02  TO  STR(T9S(3,1),3,3),PIC (#*#) 

003380 

00(3,1) 

=  00(3,1)  -  C 

T1 3  *  Til 

/ 

008400 

GOSU8' 

55(T12,T13,I2,1,2) 

008410 

14(1,2) 

*  14(1,2)  +  12 

uuB'*<na  Tr=”  tz - 

008430  CONVERT  STR (T9$ (1 , 2 ) * 9, 3)  TO  02 
008440  02  =  02  ♦  INT (C  2+ . 5  ) 


008430  CURm-KT ""U2“T0" TTVCT?  J CT77J 797377FTC  MSB) - 

008460  00(1,1)  =  00(1,1)  -  C 
008470  JMP930r FOR  K  *  1  TO  11 

0084HU  INVT  IT,  id"  =  DTVTTTTn  '  +“T5TR  +  n - 

008490  INVT (3, R)  =  INVT(3,R)  ♦  T6U  +  1) 

008500  INVT  (3,0  =  INVT(3,R)  -  T5U  +  1)  -  T6(K  +  1) 

0085TO"NEXT"K - 

008520  FOR  R  *  INKT12/12  ♦  1)  TO  11 

003530  INVT ( 1 ,  K  )  =  INVT(1,R)  +  T8 (R-INT ( T1 2/1 2+13+2) 

'31TS5 WJ  wrw ■STWTT fiVX7'"=“Tm-m"(T!  THTTUTTS - 

008550  NEXT  X 

008560  CONVERT  S TR (T9S (6, 2 ) , 1 , 2 )  TO  T2 

U08S7U  HT  8~'P  1 - 

003580  PI  *  (1-P0C1) )*P0(2)*IN VT0O2) 

008590  GOSUB*  60(T1 1 ,T2, Pi ,2) 

JU'3600  CONVERT  STR  CT95  16,2J’,  3>"3  J '"l  0  32 - 

008610  B2  *  82  ♦  INT(C2*.5) 

003620  CONVERT  B2  TO  STR (T9$ ( 6 , 2) , 3, 3 > , P IC  ( » «# ) 

0TJB650  I-5"(677)  "S"I4T6,23  +“P1 - T - 

008640  HI  *  HI  -  K6 
008650  H3  *  PI 

JDT8660  "H2  *  TZ - 

003670  P2  *  PO(1)*PO(2)*INVTO(12) 

003680  CONVERT  STR (T9S (6,3 ) ,1 , 2)  TO  T2 

0(78690  GO'S  US'"  dUTCTIZ  +  TI  3)  7TZ7P7737 — - 

003700  CONVERT  STR (T9S (6 ,3 ) ,3, 3 )  TO  B2 
008710  82  »  B2  ♦  INT(C2*.5) 

J 03 7 20  CONVERT  "B2  TO  'STH  (T75 ( 63  3  J737TT,  P  IC  nTTJ - 

003730  14(6,3)  *  14(6,3)  ♦  P2 
008740  M2  =  H2  -  R 6 

U087T0  G0SU8"  58~(2,T) - 7"*DIS  T HTSPTrTETE T  " TC UR'  OU 1  PU  I  */ 

008760  FOR  R  «  1  TO  7 

008770  T5(R)  *  A2 (1 ,R) *( Hl+Q7( 1 ,1 ) ) 

'TO'S 7  JO  T6"(  iO“a  "CT:  T7T<)~  "0 - 


008790  NEXT  R 
008800  T5 ( 3 )  *  0 


003810  Q7(1,1)  =  0 

•O'O382O~F0r  1'  ='  T  1  0"7 - 

003830  CONVERT  STR (T93 (I , 2 ) , 1 , 2)  TO  T2 
008840  IF  T5 (I )  <=  0  THEN  JMPSQS 
UP,8830~~I>  ~SH<(mTI7  23,3,3)  a  -"NNN"’  FKgfrXWPStrS 
008860  GOSUB'  5 5 (T1 1 ,T2, T5 ( I) , I, 2 ) 

008870  GOSUB'  61 £T1 1 ,T2, T5 ( I) , 1 ,1,2,1 ) 

~jU83bU  CONVtRl  STR l TVS  Ci; 777 37TJ  ro  02 
008390  02  *  02  ♦  INT(C2*.5) 

008900  CONVERT  02  TO  S TR <T 9$ (I , 2) , 3, 3 ) , P IC C ### ) 

TnnrPTo^nmr  =  dl~i - 

008920  T6CI)  *  12 

008930  JMP808 : T5 (1+1 )  =  T5£I+1)  +  T5(I> 

DU3V4U  (TEXT  I - 

008950  C7 ( 1 , 1 )  =  07(1,1)  ♦  T5(3) 

008960  IF  07(1,1)  =  0  THEN  JMP661 

UP3V7U~TF~r3T  O  ~*T  E  S  **  "T  H  E  TT'TH'F' 2  U 01 - 

008980  GOSUB'  66(1,2,1) 

008990  FOR  K  =  1  TO  7 

UUVU00~T6T<y  =  T6CK7">~  TT7TK7 - 

009010  NEXT  K 

009020  IF  Q7 (1 ,1 )  <*  0  THEN  JMP661 

UCT9TT3  U~JMP~2UU  1:12  0  A 1 - 

009040  GOSUB'  55 £T1 1 ,T2, 07 <1 ,1 ) ,7, 2) 

009050  GOSUB'  61 (T1 1 , T2, Q7 (1, 1 ) ,1 , 9,2, 1 ) 

rJOTG?0~  STS~n  )-=~  5TBTTT~^~  CUT - - 

009070  T6 ( 7)  *  T6(7)  ♦  12 
009030  OUT  A ( 2 )  *  0UTA(2)  ♦  C 

- 0U9U9U  JMF*6'ls/*BECTH  FLEET  PL0U3ACX  FLOUOUT - *T 

009100  GOSUB'  58(3,1) 

009110  FOR  K  =  1  TO  7 

W9T7U  TTTO  =  A2CT;  K)  ♦  ( (1 , d)  ) - 

009130  NEXT  X 
009140  T5 ( 8)  *  0 

T50TT50 '"07(1,2)  *  U - 

009160  FOR  I  »  1  TO  7 

009170  CONVERT  STR (T9* ( 1 ,3 ) ,1 , 2 )  TO  T2 

"J0Vl"30'Ir  T 5 ( I )  <="U  THEN  JHP812 - 

009190  IF  STR(T9S(I,3>,3,3)  =  "NNN"  THEN  JMP312 
009200  GOSUB'  55 ( ( T1 2  +  T1 3) , T2, T5 ( I ) , I, 3) 

1309210  G05TJB'  FTTTTT2TTT5T7TZ7T5TTT7T7T777T7 - 

009220  CONVERT  STR (T9S (1,3) ,3, 3)  TO  02 
009230  02  «  02  ♦  INTCC2+.5) 

"009240  CONVERT  C2  TO  SIR  (TVI(I/3),!,i);PIC  IhiH) 
009250  T5 ( I )  *  OLT 
009260  T7 ( I)  «  12 

'UU9r270"JHP812:T5(I*D  *  T5(I*T)  *  T5TT) - 

009280  NEXT  I 

009290  Q7 ( 1 ,2)  «  Q7(1,2)  ♦  T5(3) 

'inTTiin1  tp  37M.;rrn  ru;k  - 


009310  IF  Z3S  <>  "YES"  THEN  JP  P 20C  2 
009320  GOSUE'  66(1,3,1) 


009330  FOR  X  *  1  TO  7 

'  JT)  Vi  4U  T 7"C K 3  =  rmj  +  IWIKJ - 

009350  NEXT  X 

009360  IF  37(1 #2)  <=  0  THEN  JMP662 

13US»i/U  JFTF2T3U7:  ITS  =  OA"T - - 

009330  GOSUB'  55 ( < T1 2+T1 3) #T1 6 #37(1 # 2) #7# 3 ) 

009390  GOSUB'  61 ( ( T1 2+T1 3) #T1 6 #Q7( 1 # 2 > #1 #9 #3# 1 > 

'009400  oiau) na(2)  "+ Trrr~  - 

•009410  T7(7)  =  T7(  7)  ♦  12 
009420  OUT  A (3 )  =  0UTA(3)  ♦  C 

"009430  jmFSS2:7* BEGIN  PS1  Tl'Ow  OUT*/ - 

009440  GOSUB'  58(3#1) 

009450  FOR  K  *  1  TO  7 

JQ946Q  T5CX)  =  A2(6#X)*(H3  ♦  C7(6#2J) 

009470  NEXT  X 
009430  T5  (8)  =  0 

109490  b7C6~,IT  ="  0  T  "  - - - - 

009500  FOR  I  =  1  TO  7 

009510  CONVERT  STRCT9S(t#3>#-1#2)  TO  T2 
"06952(3  CONVERT  S  TR  (  T$S  <6#  2  )  7 17  2)  TO  Tl4 
009530  IF  T5(I)  <*  0  THEN  JMP816 
009540  IF  STR(T9S(I#3)#13#3)  =  "NNN**  THEN  JFP316 

109550  GOSUB*  mrm^TT?T7T?7TTnT7l7?7 - 

009560  GOSUB'  61 ( CT1 1 +T1 4) #T2# T5 Cl ) #6# I# 3# 1 ) 

009570  CONVERT  STR(T9$(I#3)#18#3)  TO  02 _ 

009530  02  *  02  ♦  lNT(C2+.5) 

009590  CONVERT  02  TO  STR (T9 S C I ,3) # 1 8# 3 > # PI C ( *# *> 
009600  T5(I)  »  OLT 

1OW10  T7<1J  V  T7<15  ♦  tl - 

009620  JMP81 6:T5 (1+1 >  »  T5CI+1)  ♦TSCI) 

009630  NEXT  I 

159640  q7<6',2 y— -q 7  < 4;  3 y  ♦  f5'<  3 ) - 

009650  T7(6)  *  T7(6)  *  PI 
009660  IF  37(6# 2 )  *  0  THEN  JMP663 
009670  IF  23  S  <>  "TES"  THEN  JHP20C3 
009680  GOSUB'  66(6#3#1> 

009690  FOR  R  *  1  TO  7 
009700  T7 (X)  =  T7(X)  ♦  T 1 7  ( X) 

009710  NEXT  X 

009720  IF  Q7 ( 6#  2 )  <*  0  THEN  JMP663 

109730  jm«003:605ub*  55UT1 1  +  T14)T;m#67<6#2)#?#3> 

009740  GOSUB'  61 (  <T1 1  + T1 4) # T1 6 # 37 ( 6#2) #6#9#3#1 ) 

009750  Q38 (2)  »  338(2)  ♦  OLT 

009760  T 7 ( 7 )  =  T7(7)  ♦  12 

009770  OUT  A (3)  *  0UTA(3)  ♦  C 

009730  JNP663 : / *  BEGIN  MULTI  NOOS  LOOPS  *t 

109790  GOSuB'  5TT37T5 - 

009800  FOR  N  *  1  TO  7 

009810  IF  To(N)  <*  0  THEN  JMP717 

1598T0  "x'2"  *  0 - - - - 

009830  FOR  X  *  1  TO  7 

009340  T5(X)  =  A2(N#X) *(T6 (N)  ♦  37(N#2>> 


B-19 


009850  K2  =  *2  ♦  T5(K> 

13179860  NbXI  K - 

009870  IF  K2  >  0  THEN  JMP672 
009850  C7(N,2)  =  T6(N) 

TJ0'98VU  GOTU  JHP673 - 

009900  JMP672:T5(8>  *  0 
009910  Q7 ( Ns  2)  =  0 

~JJ9  9  2  U  FgTTT~g . T~TO  7 - 

009930  T5 ( I )  =  T 5 ( I )  ♦  Q7(Ns2> 

009940  CONVERT  S TR  < T 9$  (I s 3  >  s  1  s  2 )  TO  T2 

U09 VaO  CONVERT  S  T  g(T  m  N  s 777TTZT ~T 0  TU - 

009960  IF  T5CI)  <=  0  THEN  JMP818 

009970  IF  STR(T9S£ls3)s3*Ns3)  *  "NNN"  THEN  JMP818 

~0TJ79iU'  GOSUE*'  53TTTTT^TTgT7T77T3TT77T7T0 - 

009990  GOSUS'  61  C ( T1 1  +  T1 4 J / T2s T5 ( I > / N, 1/ 3s  1  ) 
010000  CONVERT  $TR(T9$(Is3)s3*Ns3)  TO  02 

TTTOU 1 0  0 i  -  J7~  y~x N T  CC '2 9~TS ) - : - 

010020  CONVERT  02  TO  STR (T9S£ Is3) s3*Ns 2) sP IC £#**> 
010030  T5 (I)  *  DLT 

UTUIHO T/TI3'*  T/m-+  I '2 - 

010050  JMP 31 3: Q7 (Ns 2)  *  T5(I) 

010060  NEXT  I 

U1  Ou  /U  JMP6  f  3:ih  (i  /  C  Ns  2  )  =  OT  HEN  JMP  / 

010030  IF  Z3S  <>  "YES"  THEN  JMP20G4 
010090  GOSUB*  66  (Ns 3s 1 ) 

JTUlUU  FOR  K  =  1  TO  7  “ 

010110  T7  (X  )  *  T7£X)  ♦  T17(X3 
010120  NEXT  X 

"3Tin  3U’  IF  ~U7TB;'21~<N'~0  TMEN-3WP7T7 - 

010140  JMP 2004 : CONVERT  STRCT9S (Ns2)s1 s2)  TO  T14 
010150  T16  *  OAT 

•310160  G0S\Jb^5ycrm-M  U)sTT-6sGrCNs2?s7;31 - 

010170  GOSUB*  61(CT11+T14)sT16sG7CNs2)sNs9s3s1) 
010180  Q38C2)  =  Q38£2>  ♦  OLT 

JTT1 1 VU  T  /  ITT  t-  17X7 1  ♦  12 - 

010200  OUT  A (3)  *  OUTA (3)  ♦  C 
010210  JMP717:NEXT  N 
010*20  bOSue'  5TTD 
010230  GOSUB'  68(3s1) 

010240  /*  COMPLETE  LOOPING  ON  J  */ 

010250  IF~Zir-<>  "TfcS"  I  HEN  JMP731 - 

010260  CS  *  "AT  END  TOUR  THREE" 

010270  STOP"£NO  TOUR  THREE  -  PF-14  FOR  DATA" 

T1U230  JHP73  ITrO  R~  J  *  4  10  7  - 

010290  IF  J  a  4  THEN  S  *  2  ELSE  S  *  J-3 
010300  GOSUB'  58 ( JsS) 

mTnifi'mv  r  *  t  tii  7  ■  - 


010320  T6(X>  «  T7(K) 
010330  T7CX)  *  0 


010370  K2  =  J 


•OT03  30  HTiT  H  =  1  IU  7 - - — 

010390  T5<0  =  A2<N,K)*<T6(N)  ♦  37CN/J-1)) 

010400  K2  =  K2  ♦  T 5 (K ) 

010410  NkXI  K - 

010420  IF  K2  >  0  THEM  JMP674 
010430  Q7(N,J-1)  =  T6CN) 

'0TU44U  UO'TU  J  MV  6  66 - 

010450  JMP67 4 : T5 ( 8  )  =  0 
010460  Q7(N,J-1)  =  0 

U1U4/U  FUR  1*1  RT7 -  ~ 

010480  T5CI)  *  T5(I)  ♦  Q7<N,J-1) 

010490  CONVERT  STR(T9S(I*J)#1*2)  TO  T2 

"3! Ob oo  co'imar  srpru9s,(M/j~-r7';~2~g7'3i  nm - 

010510  IF  T5 ( I )  <=  0  THEN  JMP821 

010520  IF  STR<T9X(I,J),3*N,3>  =  **NNN**  THEN  JMP321 

TTT05  30  OO^UB^55Cn^r2^T5Uj/i;j} - 

010540  G0SU6 *  61 (T1sT2sTSCIJsNsI/JsS) 

010550  CONVERT  STR(T9S(IsJ)s3*Ns3)  TO  02 

•JT05  60  u2~-  nr  ♦  TimL'2+;!n - - 

010570  CONVERT  02  TO  STR (T 9S (I , J) / 3*N, 3) , P IC ( # #») 

010530  T5  < I )  =  OLT 

010590  rmr-y  irm  »  12 - 

010600  JMP821 : 07 (N, j-1 )  *  T5(I) 

010610  NEXT  I 

TI06~2U  3WP66'6~:NbXr  N - - -  ~ 

010630  FOR  N  *  1  TO  7 

010640  IF  Q7CN,J-1)  <*  0  THEN  JMP6?5 

in 06 50  CONVERT  S THCT951N, J-l J , 24*i J  TO  T1 - 

010660  K2  *  0 
010670  FOR  K  *  1  TO  7 

~3T 0660  I5TXT~  A2T.N,IU»q7m,J-i; — ; - ~  ~ 

010690  K2  •  K2  *  T5CK) 

010700  NeXT  K 

1H07 10  T5  (8)  *  0 - — 

010720  IF  K2  <*  0  THEN  JMP675 
010730  Q7<N,J-1>  «  0 

j  i  y  f  4 u  pOR  i  *  i  To  r  '  ' 

010750  T5CI)  *  T5CI)  ♦  07<N,J-1) 

010760  IF  T5(I)  <*  0  THEN  JMP678 

mU/7U  IF~~S  HTCT95  Cl#  J  j  TT^ITTTO  «  "NNH"  THEN  JHP&/3 - -  ~ 

010730  CONVERT  STR (T9S (I , J ) , 1 , 2)  TO  T2 
010790  COSUB'  54<T1,T2) 

Tnreuu  s/'»  o - - 

010810  FOR  X  «  1  TO  T17C1) 

010820  S2  *  S2  ♦  INVT(3/INT(T1 /12tX>) 

mU8iU  NeXT  K  - “ - - 

010840  IF  S2  <»  0  THEN  JMP673 

010850  8  «  <1-R0<INTCCT1*T2)/12+1)))*CCT1+T2)/12-INT((T1*T2)/12)) 

71u86l)  A6  »  rZ^TT«TTTTnTT7TT=TfriXTTT^T2T7T7TT7TTl|r?UTTlTTTTT^TTr7T7^TTT7 - 

010870  SI  *  (1"A6)*INVT(3*INT(T1/12*T17(1))) 

010880  S2  =  S2  -  SI 


I 


010890  FOR  K  =  1  TO  T17C1) 


010910 
01 09  20 


hi  i  u/iim  i  i  /  i 

NS  XT  K 

INVT(8*INTCT1/12+T17<1))>  =  IN VT ( S, I NT ( T1 / 1 2+T1 7 (1 ) ) )  ♦  Si 


I  litfiWM'i  is>i«  t  ra  m  navi 


010940 

010950 


GOSUB'  61 CT1,T2*T5CI)*N,I/J,S> 
CONVERT  STR (T9S(I*J)*3*N*30  TO  02 


010970 

010930 


011000 

011010 


011020 

011030 

011040 


011060 

011070 


Hi  »!•¥:!•] 


011090 

011100 


CONVERT  02  TO  STR (T 9$ < I , J) * 3*N/ 3 ) / P IC ( *  * #> 
T5  < I)  =  DLT 


I  i  u  j  =  I  f  ( 

JMP678:Q7CN*J-1 >  *  T5CI) 
NEXT  I 


JMP  67 5 : NE XT  N 
FOR  N  =  1  TO  7 
GOSUB'  58  (J/S) 


N*J-1)  <=  0  THEN  JMP6 
IF  Z3S  <>  "YES"  THEN  JMP2005 
GOSUB'  66 (N* J*  S) 


0 

T7(K)  *  T7 ( K )  ♦  T1700 
NEXT  < 


■kill iiaii:i>4iiivni»M4  i 


iiarijw  Lixti'j 


011120  CONVERT  STR(T9S<N,J-1)*24*2)  TO  T1 
011130  T2  *  OAT 


4U  GOSUB  55 IT1*TZ*u7(N* J-1 ) ,7  * 

011150  GOSUB '  6UT1,T2,07(,\,J-1),k,9,J,S) 
011160  T7 <  7)  «  T7(7)  ♦  12 


likllM'HiPIflflKailUfMI] 


011130 

011190 


JMP679: NEXT  N 
GOSUB'  65  (J) 


[iiiMnnin 


011210  IF  Z1S  <>  "YES'*  THEN  JM»631 
011220  INIT(HEXC20))CS 


011240 

011250 


U  I  uou 

011270 
01 1230 


U I l(?U 

011300 

011310 


'J  I  I  J 

011330 

011340 


011360 

011370 


i  i 

011390 

011400 


CONVERT  J  TO  STR(CS*14/1)*FIC(#) 

STR  (CSsI 5*20)  «  "  PF-14  FOR  DATA" 


5  l  u  r  i.* 

JMP681 : NEXT  J 


ITERATION  COMPLETE.  COMPUTE  REMAINING  REQUIREMENT  * 
AND  DEVELOP  INCREMENTAL  ACCESSION  REQUIREMENT.  * 


I  n  i  a  i)  inacnrnitJ  as  a  i  p^UGcss.  A 

ACTIVITIES  EXCEPT  "OTHER"  iRS  TESTED  FOR  COMPLETION  * 
IN  THE  FIRST  STAGE.  WHEN  THESE  REQUIREMENTS  ARE  * 


j  ji 


CAN  THEN  PROCEED  TO  COMPLETE  THE  "OTHER"  REQUIREMENT  * 


*****  **  •* 


G2  *  0:S2  «  0:T1  *  12 
FOR  J  *  1  TO  4 


011410  FOR  I  =  1  TO  6 


311430  02  =  02  ♦  03<I#J) 
311440  JMP310:NEXT  I 


Ul  l*ru  n C a  I  J 

011480  IF  02  <  2  THEN  JMP2011 
011540  10  *  02/4 


011590 

011600 


311610 

311620 

311630 


STR (CS#1 / 37)  *  -ITERATION  # 
CONVERT  T50  TO  STR(CS#11#2)#PIC(09) 


NVERT  ROUND (I NV 
GOSUB'  59 (CS) 
GOSUB'  80 


ACCESSIONS  ADDED' 


6WMj(4fll.niVUHCF£II}] 


GOSUB'  67 
GOTO  JMP300 


liife  rt1«I324  mrfiMit-IBV 


011650 

011660 


u  1 1  6  f  0 
311680 
31 1690 


u i i f uu 

011710 

011720 


FIRST  STAGE  REQUIREMENTS  TESTING  COMPLETE.  BEGIN  * 


*************** ******************  **************  ******  ******** 


011740  GOSUB'  30 

01 1 7 L 1  ES  *  "ALL  REQUIREMENTS  EXCEPT  'OTHER'  COMPLETELY  FILLED" 


011743  CONVERT  T50  TO  STR  (ES# 1 1 8#2) #PXC ( 9# ) 
011750  IF  PR  ss  o  THEN  GOSUB'  72 


311770  FOR  J  *  1  TO  4 
011780  02  *  02  ♦  00(7# j) 


N 

011820  IF  D2  <  2  THEN  JMP820 
311880  10  =  D2/4 


J  1  lO’U  faUiUtj 

011900  IF  IIS  <>  "YES"  THEN  JMP315 
011910  INIT(HEX(20))CS 


011930 

011940 


J 1  1  V  3  U 

311960 

311970 


i  i 

311990 

312000 


31 2020 
31 2030 


CONVERT  ROUNO (02# 1 )  TO  STR (CS# 32#  5)  # PIC  (#9» . #) 
GOSUB'  59 (CS) 


MiMIISKOl 


JMP315:T51  =  T51  ♦  1 
GOSUB'  63 


GOTO  JMP300 


OUTPUTS  AND  SELECT  PRINT  OPTICS.  AFTER  PRINT  MODEL  * 
RESETS  IN  PREPARATION  B0R  A  NEW  RUN.  * 


B-23 


012060 

012061 


JMP32Q:GOSUS'  80 
INI T (HcX ( 20) >  =S 


r-OM 


012063 

012064 


01 2066 
012070 


STR(ES/-105^13)  =  “ITERATIONS  =  " 
CONVERT  T 50  TO  STR(E$*118/2)*PIC(##) 


CONVERT  T  51  TO  ST R ( ES, 1 2 1 , 2 ) / PI C ( *» > 
IF  PR  =  C  THEN  GCSU3'  72 


012090 

012100 


ji  *mu 
012120 
012130 


i*fer4i 


012150 
01 21 60 


JU1CU 

012180 

012190 


012210 

012220 


sj  1  b  4  VW 

01 2240 
012250 


012270 

012230 


012300 

012310 


IF  M>1 5  THEN  SKP40 

PTR(A1(H/1))  =  PTR(Al(M,1)>  ♦  INVTC3,31> 


PTRUJ  =  3 
GOTO  SKP41 

SXP40:PTR(A1  (M-15^2))  =  PTRCA1  (M-1S»2>>  ♦INVT(S*31) 


rlKVjJ  =  rimri  ▼ 

SKP41 :G0T0  JMP500Q 

*****<********+***-**#*#***#**‘#**4r#*+'fc*'*  +  **★*♦**★  ♦♦  *  *  **  it  it  It  Hi 


it  * 

*  SUBROUTINES  * 


#71  -  THIS  SUBROUTINE  PRODUCES  PRINTS  OF  THE 


IVI0UAL  PRINTS  AND  FROM  «  13  FOR  ALL. 


(TTTTTTTTTTTTTTTTTT  TTTTTTTTTTTTII TTITTT  TTTTTTTTTTTTTTT1 


DEFFN*  71 (N) 
SELECT  PRINTER 


ON  N  GOTO  JMP1501#  JMP1402,JMP1403*JMP1502*'JMP1404,JMP1405 
JMP1 501 :NS  =  MEX(FF) 


r* 


012330 

012340 


JI03U 

012360 

012370 


09(Q)  *  0 
FOR  P  *  1  TO  7 


NEXT  P 

09 ( Q )  a  ( 08 ( Q )  -  0 9 ( Q ) ) / D 3 ( 2 ) 


012390  010  *  0 
012400  FOR  P  *  1  TO  7 


■k  r«  ■■K9>l  I 


012420  NEXT  P 

012430  P9  a  INT((7?-P5-P6-25)/2) 


012450  STR  (06*1/2)  a  STRC0ATE/3/2) 
012460  STR(0S/3/1)  *  */" 


012430  STR(0S,6,1>  a  »/" 

01  2490  STR  <05/7/ 2)  a  STR  (CATE/ 1 , 2) 


012500  STR(TS,1,2)  *  STR  (T IMS, 1*2) 


J12510  STR(T5,J,1)  =  "  : " 

012520  STR (TJ/4/ 2)  =  STR (TIMS/ 3, 2) 

012530  INIT(HEX(20))P1S(1> 

UT  25  40 '  S nrrPTTTTT7 T7TPT  WORK.  1  NG~  "UN"" - -  — 

012550  STR(P1S(1),12,P5>  *  AS 
012560  $TR(P1S(1),13+P5,2)  *  "IN" 

'(TI75TU  57 R  C PI  rm  ;  1  6  *  P  5  ,  P"6’ )  =  TV  PTmTD 
312580  STR(P1$C1),17*P5+P6,9)  =  "COMMUNITY" 

312590  PRINT  PAGE  _ _ 

HI  2600  PRINT  X  5  S 

012610  PRINT  SKIP<4),C0L(21+P9),P1SC1) 

012620  PRINT  USING  SHP10,XS,DS 

"JT757ITTHF1 UTFWT  CdL'CT&TTCrR  40  )T<TClT3  O'  iTCTHTJ 

312640  PRINT  COL (80) / T S 

012650  PRINT  SKIP(1 ),COL  (41 ), "FRACTION  OF  FILL" 

01 2660'PRInT  U'SHiC' '  SRPT^S’eTiTO  ft  CWAnHE  RS",WCa 
012670  PRINT  USING  SMP1 , "C0HMANQERS",09( 3) 

012680  PRINT  USING  SHP1,"LT.  COMMANDERS", 09(2) _ 

012690  PRINT  USING  SHPIVlT.  AND  ETlW*T5TTTJ 
012700  SrtPI : FMT  COL ( 36 ) ,CH (1 9) ,COL (56 ) , P IC ( *#*) 

012710  PRINT  COL (36),"==== ============== ========" 

01 27273'  PR'InT  S'xrP(T5  '  “ 

012730  PRINT  USING  SHP2,"ACCESSI0NS",D10 

012740  PRINT  USING  SHP2,"FIRST  TOUR  LENGTH", Til  _ 

0127"Sr0"?HP  2':Tm  T“c  o  L  ( !  15  7'Ch  1 1 3)  7C0T737J7  ,  PUTT  inn  .«*> 

012760  PRINT  SKIP(2),X5S 
012770  SELECT  CRT 

012730  NS  =  ns  XOft  H£X(F'PJ  '  ”  “ 

31 2790  RETURN 

012800  JMP1402:/*0UTPUT  MATRIX  14*/ 

OTZSTO"  "FOR  P  *  T  TO  '7  ~ 

31 2820  INIT(MEX(20))?1S(P) 

01  2830  FOR  R  *  1  TO  7 

3 1  2 8 57T TON V E RT  T4 CP, R )"  TO- 5  TR  (  PT5TT5 '.;7*R-6,<rr,  PIC C 
012850  NEXT  R 
012860  NEXT  P 

31 2370  IF  NS  5  hEX (00)'  ThTK  JMPSJVO 
312830  PRINT  PAGE 
312890  PRINT  X5S 

rJT2yU0"~JHP5U5'0niS  *  MS  XOR  HEXCFFX  " 

012910  PRINT  SKIP(4),TABC53),"N00E  FLOW  VALUES* 

012920  PRINT  SKIP(1),TA8 (55), "TOUR  NUMSERS" 

3T29  3U"  PRINT  SKIP(T) 

312940  PRINT  USING  SHP9,  " ACTI VITY ", "ONE  ", "TWC ","T MR c E ", "FOUR", " FI VE", 
312950  "SIX", "SEVEN" 

31  29oU  5HPV';PHr~C0H2VJ7CH(8),L0H5m,CH(3),C0L(5/),CHTi),LUHOA),Ln(5i 
312970  COL (70) ,CH(4) ,COL (77) ,CH(4) ,COL (85) ,CH ( 3 ),C OL ( 9 1 ) ,CH ( 5 ) 

012980  PRINT  SKIP(1 ) 

■JT797IT "PRINT  IJS'IML  SMViTCH'3  =  UnT77TSTT3 
31  3000  SrtP 3 : FMT  C0L(23),CH(24) , COL (43), CH( 49) 

313010  PRINT  USING  SHP 3, LA 3ELS ( 2) , »1 S ( 2 ) 


013020  PRINT  USING  SHP3/LA3ELS(3)/P1 5(3) 


013040  PRINT  USING  SHP 3,  LA 3 EL S ( 5) / PI  $ ( 5  ) 
013050  PRINT  USING  SHP3 / LA  3 EL J C 6) / PI S < 6) 


013070 

013080 


PRINT  SKIP<D#TAB  (26) ,"******** *********************** ************ 


013100 

013110 


SELECT  CRT 
RETURN 


013130  IF  NS  *  HEX (00)  THEN  JMP5Q51 
013140  PRINT  PAGE 
31 31 50  PRINT  X5t 

013160  JHP5051  : N S  =  NS  XOR  HEX (Fe) 

013170  PRINT  SXIP(4)/C0L (  5 3 )/" INVENTOR T  DISPLAY* 


013190  30" 

013200  PRINT  SKIPC2) 


NT  U 

013220  SHP4:FMT  COL (36) , CH <14 ) /COL ( 51 ) , P IC (#*) 
013230  PRINT  SXIPCD 


013250  PRINT  SXIPC1) 

013260  PRINT  USING  SHP4,"THIR0  YEAR",T15(3> 


N 

013230  PRINT  USING  SHP4/ "FOURTH  rEAR",T15U> 
013290  PRINT  SKI?(2)*X5S 


013310  RETURN 

013320  JMP1 502: /*C REATE  AND  DISPLAY  INVT  SELECTION*/ 


013340  INIT(HEX(20))P1S(P) 

013350  STRCP1SCP>,1*24>  »  LA3ELSCP ) 


013370  CONVERT  INVT(P,T1  5  CR)  )  TO  STR  (Pi  S  CP  ),1  8+9*R  ,6)  PIC  (###.  *»  ) 
013380  NEXT  R 


013400  IF  NS  =  HEX (00)  THEN  JWP5052 
013410  PRINT  PAGE 


013430  JHP 5052INS  *  NS  XOR  HEX ( FF) 

013440  PRINT  SKIP(2),TAB(53)*"INVENT0RY  DISPLAY"  _  _ 


PkiNT  5KIP(3)/TA6(59)*  YEARS 
313460  PRINT  USING  $HP5/"ACTIVZTY%T15(1>^T15(2)*T15(3)*T15(4) 

013470  SMP5:FMT  COL ( 37) ,Ch  <1 0)  ,C0L ( 59 >  , P  IC  ( *#)  COL  (6 3)  / PIC C **) /C OL  (77)  ,  ! 


•kAtUiBJMf  DIM']  M-I-YfUMfUl 


013490  PRINT  SKIP(1)/TAB(29),P1S(1) 
013500  PRINT  TAB(29),P1S(2) 


tiAuna-jrimaHitAivuiiM] 


013520  PRINT  TA3(29)*P1S(4) 
013530  PRINT  TA6(29)/P1S(5) 


B-26 


013540  PRINT  TAB(29)/P1$(6) 

lHT33T]rTnrr7TT— TTBT2TT7TTTT71 - 

013560  PRINT  TAB(29)/P1$(S> 

013570  PRINT  SKIP(1)<-TAS(26)  / "*******  +  •*******•**•*•**••*••*•***•••»**•*  i 

UT33 60  ************■»*■*»* ******  ***♦"  ~  -  — 

013590  PRINT  SKIP(1)/TA8(29)/P1S(5) 

01 3600  PRINT  SKI P ( 1 ) / T  AB (26)*"**********  **  **  ****** **** ******************* 

313610  *****************  **■  ***  *  *~W— ""  — - - - 

013620  PRINT  SKIP(2)/X5S 
013630  SELECT  CRT 

U1  3640  RETURN  - - - — — - 

013650  JHP1404:/*0ISPLAY  REQUIREMENTS  MATRIX*/ 

013660  FOR  P  *  1  TO  7 

-JT337TT  ~TnTTWYT7U  T  ( T1 . .  . 

013680  STR(P1$(P),1,24)  =  LABELHP) 

013690  FOR  R  *  1  TO  4 


013710 

013720 


013740 
01 3750 


NEXT  R 
NEXT  P 


N 

STR(Pl$(8)/1/24)  =  "LOWER  GRADE  FILLS" 
FOR  R  =  1  TO  3 


013770 

013780 


J1 3790 
013800 
013810 


W  I 

013830 
013840 
01 3350 
01 3860 
013870 


[■ikf-Mi] 


013890 

013900 


U13910 
013920 
0139  30 


[•kB-lTSM 


013950 

013960 


ttmiinrr 


NEXT  R 

IF  NS  *  HEX (00)  THEN  JNP5053 


N 

PRINT  X5S 

JMP  5053 : NS  *  NS  X OR  HEX  ( FF) 


PRINT  SK2P(3)/TAB (5 7)* "CATEGORY" 
PRINT  TAB (37) /"ACTIVITY 


LC  DR 


PRINT  SKIP(1)/TA8(29)/P1S(1) 
PRINT  TAB (29)/P1 S  (2  ) 


N 

PRINT  TA6(29)/P1S(4) 
PRINT  T  AB  (29) /PI S (5  ) 


RIN 

PRINT  TAB(29)/P1S(7) 

PRINT  SKIP(1)/TAB(26)/"**********************************»******»| 


PRINT  SMP(1)/TAB(29)/P1S(8) 

PRINT  SKIP(1)/TA8 (26)/" ******************************************* 


************* 


01  3930  PRINT  SlUP(2)/X5$ 
013990  SELECT  CRT 


014010  JNP 1 405  J  / ‘DISPLAY  SURPLUS  FLOWS  (Q7)  */ 
014020  FOR  P  *  1  TO  8 


NITtiEXCZOJJSTST?) 

014040  STR(PlS(P)/1/24)  «  LA3EL5(F) 
014050  FOR  R  =  1  TO  7 


B-27 


014060  CONVERT  ROUND  (Q7(P/  R)  ,1  )  TC  STR  CP  1  $  ( P)  ,  21  +  5  *R/  4  ) / £>IC  <  **.  tt  > 


014030  NEXT  ? 

014090  STR(P1S(8)/1/24)  =  “NON-AVIATION  ^AN-YEARS“ 

T1'4'T0U  F  OR  R  ~g~r~TP~7 - 

014110  CONVERT  ROUND (OUT  A ( R ) / 1 >  TC  STR ( P 1 S  ( 8 )  , 21  +  5 *R/ 4  )  / PIC C # #. U  ) 

014120  NEXT  R 

'JT4TJE  T.  T  TT  l  ~  "H  =  XTOUT . ThsT~JWTOS  4 - 

014140  PRINT  PAGE 
014150  PRINT  X5S 

7JT4T60  J  fl'P  5  0  5'4':'k  S  =“JJT '  X  OTT~h  - 

014170  PRINT  SXIP(2)xTAB(49>^“ SURPLUS  FLOW  07)  DISPLAY" 

014180  PRINT  SKIP(3)/TAB(72)/"T0UR" 

01 41 90  PRINT  "TT5TJ7T7 "ACTIVITY  1  2  3  5  5  5  T 

014200  7" 

014210  PRINT  SKIP(1),TAB(29),P1$<1) 

OT4TZ0  PR T7"P  1  STD - 

014230  PRINT  TAB ( 2 9) ^P1 S  (3) 

014240  PRINT  T AB ( 29) / PI  $ (4 ) 

T1TT3'0"  P'5' In  T”  TTS  T7TT7PTTTT3 - 

014260  PRINT  TAB(29),P1SC6> 

014270  PRINT  TAB(29),P1S(7) 

014  280  P'RTRT~nSn(XPT1  T7  TAB'(  26),  "TV*  *  *****  77?  *■**  *  *  **"*  ****  ******  **.*  *******  *\ 

014300  PRINT  SKIP(1),TAB(29),P1S(8> _ . 

u  1  4310  PRINT  SKIPC1  )  / T  AB  (26)/”  *  **»  ******************* ’*************  ******1 

014330  PRINT  SKIP(2),X5S 

111  434U  SELECT  XR1 - 

014350  RETURN 


- 37^370  t - r 

314380  *  #72  -  THIS  SUBROUTINE  CONTAINS  THE  PRINT  * 

314390  *  ROUTINES  FOR  THE  OUTPUT  TABLES  OF  THE  * 

- OT440U  * - WOO  EC - *- 

014410  *  * 


31^4-30  DEFFN*  72 - 

014440  INIT(H£X(3D) ) X4S 
014450  INIT(HEX(2A))X5S 

0T4y&0  INIT(HEX(20)?3V - 

014470  INIT(HEX(20))CS 
014430  FOR  P  =  1  TO  7 

3T~y?90  FOR  o  g  1  TO  7 - 

214500  Q7(p,3)  *  0 
01<*510  NEXT  Q 

ai~4T20  T  5  CrT~g~t3 - 

014530  NEXT  P 
014540  FOR  P  *  1  TO  7 

■0r455G  FC'R  3=1  TO"  TO - 

31 45  aO  Q7(Pr1)  *  G7(P,1)  ♦  ROU VO ( IN VT ( P,  3) ,0) 

314570  37( P/5)  =  07(P/5)  ♦  ROUNDClNVT (°/ 3) /C) 


or?  5  vo 

u>n*B 

Torn  ~ — 

014600 

G7(P,2) 

a  Q7(P,2)  ♦  R3UNQ(INVT(P,0) ,C> 

014610 

Q7 ( P , 5 ) 

a  Q7(P,5)  ♦  ROUNCa.NVT(  »/ 3)  ,C) 

"RETT  7 

014630 

FOR  Q  = 

16  TO  030 

014640 

G7(P,3> 

*  Q7(P,3)  ♦  R0UN0(INVT(P,3),Q) 

“  014650 

"07TPT5T 

014660 

NEAT  Q 

014670 

FOR  Q  = 

030*1  TO  26 

mmu 

014690 

Q7<P,5) 

a  Q7<P,5)  ♦  ROUNO(INVT(P/Q) #0) 

014700 

NEXT  Q 

NeXT  P 

014720 

FOR  Q  = 

1  TO  9 

014730 

T5  < 1 )  = 

T5<1 )  ♦  R0UND(INVT(9,Q> ,0) 

T5T5) 

014750 

NEXT  Q 

014760 

FOR  Q  = 

10  TO  15 

™“  0147  70 

T  5  C  2  )  = 

014780 

T5  (  5 )  = 

T5C5)  *  RuUND(INVT(9,Q),0> 

014790 

NEXT  Q 

U|UK*KJ 

“1 6  "TIT  DID - 

014810 

T5C3)  * 

T5(3)  ♦  R0UN0(INVT(9,Q),0) 

314820 

T5  (  5  )  * 

T5t5)  ♦  R0UN0(INVT(9,Q),0) 

Tirmi 

NeXT  0 

014840 

FOR  0  * 

030*1  TO  26 

014850 

T5 ( 4)  * 

T5C4)  ♦  ROLNQ(INVT(9,3),0) 

mmu  ini 

T  5X53  * 

014870 

NEXT  Q 

31 4830  IF  M  >  15  THEN  B  *  M  -  15  ELSE  3  *  M 

JUS  VO  5Tg  CSS^INT  C  t  <T3—i:  E  N  C  TTP’gTTn  1 3  3  3  /  <?  LEMt'T  YPE  S'C  J~1  1  »  )~==  T  VT~E5  (GT1 ) 
0149Q0  STR(BS,INT((23-LEN(TYPEM311>>>/2>*LEN(TYPES(Q1  1))*2,9)  =  "COMHUN 
01 4910  ITY" 

'CFT4920  mrrffI7T777  *”$TR (CATE*  3#Z) - 

014930  STR  (0$s3#1 )  *  **/*• 

014940  STR (G$s4#2)  »  STR (DATE, 5,2) 

ji 4950  sift rDTjrsn )  »  - - — - 

014960  $TR(DS,7,2)  *  STR (0  ATE,  1 , 2 > 

014970  STRCTS/1,2)  *  S TR CTIHS, 1 , 2) 

0T4980  STft  CT T737T  J'  »  - - - 

014990  STR (TS,4, 2 >  «  STR (T IME, 3, 2) 

01S000  SELECT  PRINTER 

'JT5010  pRInI  PAGE - — - — 

01  5020  PRINT  SKI P<  5) 

015030  PRINT  TAB(49),B3 

015040  »at't«r'SRIP'C177Tlfl<59i/,r5liHN4RY  DATA" - 

015050  IF  AS  *  "NAVAL  AVIATORS"  THEN  PRINT  $K I P (2 )  , T A 3  C 5 S ) ,  A $,T A  3 ( 1  20)  , 
015060  DS  ELSE  PRINT  SKIP(2),TAB<55),AS,TA3(120),CS 


015070  PRINT  “Ac  M  20), Ti 
015030  PRINT  SKl?(1),X5S 
015090  PRINT  S K I P ( 2 ) 


w 


l  1|WIJ  I P  IL 


015100  PRINT  USING  SHP 20*" R ETE NTICN”* R 0UN0  ( R02 *100 ,0) * "2"*  ! 

7TTTT0  "NiUnEcR  0”  SCJAOR'ON  i  ”,  5  1  f  3*  1 5 

015120  ShP  20 : FMT  C OL ( 1 0 ) *C H ( 20 ) /COL ( 3 2 ) / ? I C C **  )  *CC L : 3 5 ) * CM ( 1 ) /CO L ( 75 ) *  ! 
015130  Crf<25)*C0L<105)*PICC«*) 

"T15140  PRINT  U'SItTG  SflP7PT,TTggTffFT~P5R  T 3 UTC RTTN'VS  1 T57T7 
015150  SHP30:FMT  C OL (74) *CH<25 ) /COL C 1 05 ) * P IC ( # #> 

015160  PRINT  USING  SHP31*"PLOW3ACK  PR  ACT  10  N"*  P  0  (1  )  *1 00  *  "X**/ "CRE  b  FACTOR"! 
(T1TT70- 7TTT57T5  '  “  ~ 

015180  SHP  31  :  FMT  COL  C 1  0 )  *  C H  (  20  )  * COL  C  32  )  /  PI  C  ( #*  )  /-COL  ( 35  )  *CH  ( 1  )  * COL  (  74 )  ,  ! 
015190  ChC25)*C0L(106)*PIC C#.**) 

31 52r00-TP  "M-V_T5~T  hTn"T‘~S"  SrS'r~S  "=”  '4 

015210  STRCCS*1*LEN(AS)J  =  AS 

015220  STRCCS*2*LEN<AS>*8>  =  "PER  CREW" 

”'J1 5230  ■TrInT”uS'In^'"S"hP31  ,"C  J/STOTS > 

01 52 AO  SrtP51 : FMT  COL C7 A) *CH< 30 ) *CCL <10 6) * P IC C M . ## > 

015250  PRINT  SKIPC20/X5S 

'  0152S0  TftlST"Ti(IT{^)VTAfi  C'5'7)7wCOTfcuR,ITr  1  MPUlTTIW* 

015270  PRINT  SKIPC1) 

015280  IF  AS  =  "NAVAL  AVIATORS"  THEN  ! 

3152  90 - T 0 !"S  "~A t t's  s'sTo'n S'  T 0"  T  RA  I  n! nS  ~nT9 xT"“TlS!  T 

015300  TOESS  =  "ACCESSIONS  TO  TRAINING  (137X)" 

015310  IF  AS  =  "NAVAL  AVIATORS"  ThEN  ! 

~Tn5T20 - PI5T5  "ICC'gS5T0W  TO'  1  51g~DTS  I  GNAT  OF" . ELSE  T 

015330  DESS  =  "ACCESSIONS  TO  132X  DESIGNATOR" 

015340  I*  AS  *  "NAVAL  AVIATORS"  ThEN  Jl  *  1  ELSE  J1  *  2 

umiorrr  =~a¥vtrs7Tn >  *TO!Tsm7jT  tt  tj 

015360  PRINT  USING  SHP33* TOESS * ROUND (ACC  1, 0) *" SENI OR  C OMM AND ERS" * T 3 C 1 ) 
015370  SMP33  :  FMT  COL  <  1  0)  *CH  (30  ) *CCL<  A2  )  *  ?I  C  (  »*  #*>  *  COL  C  5  5)  *CH  (1  8 )  /-COL  C75  )  ! 
015380  -rPTCOTtm 

015390  PRINT  USING  SHP 34*" COMM  ANDERS"*  T8 (2 ) /"COMMA  NO  0 PPORTUNIT Y "* T8 (9 ) 
015400  SHP34:FMT  COL ( 55) *CH (1 8 )*C0L(75 > *  PI C ( *n # A) *COL ( 90) *CH C23) *COL Cl  1 5 « 
JTyniTT/FICCJT.im 

015420  PRINT  USING  SMP 35 *0 ES S* ROUND ( INVT C E * 31 > * C) , "LT .  COMM ANDS R S" *T 3 ( 3 ) 1 
015430  *"DSPT  HEAD  OPPOR TUNITY"*T£ <3> 

015440  3HP15fFM7~C0L"(1Cn;TW(3aJ*CCLCA2)*PICC»#B«'*C"0Lr53)7CHTT3J*C0n75)! 
015450  *PIC(##«#)*C0L(90)*CH(2  3)*COL(11 5  >* PIC (#.#*) 

015460  PRINT  USING  SHP33*"FIRST  TOUR  L ENGT H"* X A6*"LIEUTENANT S"*T 3 ( A ) 

J1  S470-PRIMT  TKTPTTJ - 

015480  PRINT  USING  SHP34*"  '  TCTALS"*D3 

01 5 A 90  03  *  R0UN0C(T5(5>/C3)*100^C) 

01  5  500' PRINT  bRIPC2T"/X5S - 

015510  PRINT  SMPC2)*TA8(29)*"DISTRI3UTI0N  BY  GRADE  AND  ACTIVITY" 

015520  PRINT  SKIP(1)*TAB(21)*"ACTIVITY  GRADE" 

J1  55  3CJ  PRrNmB  (A5r*"L~T - ra! - C7R - STTJ  CJH - TOTAL - T 

0155  40  AC  IP  PROJECTIONS" 

015550  FOR  P  =  1  TO  7 

0T5'5"6'U""P K Iff!  "OS'IHb  SHPIS/LABfcLf  (?)  ; - 

015570  FOR  Q  *  1  TO  4 

015580  PRINT  USING  SHP37/Q7CP* Q); 

Jl  55  90  Ne'm - 

015600  PRINT  USING  SHP 3S * C 7 < ?* 5 ) ; 

015610  ON  P  GOTO  LIN6*LIN2*LIN3*LINA,LIN6*LIN6*LIN5 


-J 


B-30 


015620  LIN2:PRINT  USING  SHP39,"GATE  1",T3<5) 

J1i6iU  GOTO'TINl 

015640  LIN3:PRINT  USING  SH?39/"G4Tc  2",T3(6> 

015650  GOTO  LIN1 

~0T5 660  l in'yrPTrnrr'Ti's i fi s~~s h p s 9 , n r~r ,ran - 

015670  GOTO  LIN1 

015630  LIN5 :  PRINT  USING  SHP4Q,"N0N  AVI ATI0N",03,"XM 

Ol 56  90  GOTO  LlNI 

01  5700  L IN6 : PR INT  SKIP  <10 

015710  LlNl :NEXT  P 

J15720  PRINT  USING  SHP36^LAB2L S(9)  ; 

015730  FOR  Q  *  1  TO  4 

015740  PRINT  USING  SHP37,T5CQ) ; 

"0T3750  NeXT  0 - 

015760  PRINT  USING  SHP38,T5(5) 

J15770  SHP36:FMT  COL <1 4) ,C H< 25 > 

"JT5780  SHP37:FHt  C0LC36) 

015790  SHP38:FNT  C0L(71 ),PIC<##»#*##*> 

015800  SHP39:FMT  C0lC95),CH(6) /COL (106),PIC(#.##> 

"JT'Sai  C  Sh^'4U*:~fmt T 5lT5 STTTh X 1 2T,  C  o  l  <Tfl7T  7  P  I'C  ZT3 y;zQ C  ( 1 1 C )  7 C  h  <  1 ) - 

015820  PRINT  SMP(2),X5$ 

015821  PRINT  SKIP(2)rTAB  (1  )s£S 

■JV583U  PRINT'  PAGE - 

015840  /*  INVENTORY  PROFILE  PRINT  */ 

015850  IF  AS  *  -NAVAL  AVIATORS*  THEN  PRINT  SKI  PCS) /TAB  (58), AS  ELSE 

' JT5 860  PR  IN TTR I P (  5  J7 T  SB7T5 T/A T - 

015870  PRINT  SKI?(1),TAB<49),B$ 

015830  PRINT  SKIP(3),TA8(53), "INVENTORY  01 SRL A Y", T AB (1 20 ) ,DS 

OTb 8 90  PRINT  TAB (1 20) ,T5 - 

015900  PRINT  SKIPC3),TABC54), "YEARS  OF  AVIATION  SERVICE* 

015910  PRINT  SKIPC2),TAB<10), "ACTIVITY", TA3C33),"1  2  3  4 

'3T59  2U - S - 7 - 8 - 9 - TO - TT - 17 - T3 - T5 - IS - T8 - TO - 2 

015930  24  26" 

015940  PRINT  S*IPC1),TAB  (1  ),X4S 

■UT595U  FOR  T~  1  TO  3 - 

015960  PRINT  SXIPC1) 

015970  PRINT  USING  FL0W1 , LABEL S CP) ; 

TT5V80  FOR  U  *'  1  10  13  - 

315990  PRINT  USING  FL0W2,  roun  o  c  in  vt  c  p  ,  c  > ,  o) ; 

016000  NEXT  Q 

UT6U1U  FOR  'IT"»  T4"~T U~  24~5>I"EF  1 - - 

016020  PRINT  USING  FL0U2,R0UN0 (INVTCP, Q) ,0  )  # 

016030  NEXT  Q 

J16G4U  Print  USing  flqJc,  RounOunVT CF7T5T7U7 
01 o050  NEXT  P 

016060  FLOWl : FMT  C OL C 2 ) , Ch < 25 ) , XX C 2 ) 

UT60 /U  FL0U2TFMT  C0CT2 -Tr/PlC CM‘9»9HJ - 


016080  PRINT  SKIPC1 ),TAB (1 ),X4S 

016090  PRINT  SKIPC1) SPRINT  USING  FLOWl , L AB ELS C 9); 

'JTol  JO  FOR  a""*-'  1  TO'  1  3 - 

016110  PRINT  USING  FL0W2  ,  RC JN 3 < IN VT C 9 , Q ) , 0 > ) 

01 al 20  NEXT  3 


TT  «  J  / 


016130  FOR  Q  =  .14  TO  26  STEP  2 


016150  NEXT  0 

016160  PRINT  S<I?(1)#TAB(1)*X45 


016180 

016190 


RETURN 


*73  “  THIS  SUBROUTINE  PROVIDES  A  COMPLETE  SET 
OF  OUTPUT  SCREEN  PRINTS.  INVENTORY  OUT 

- D'IS'PrL'AT  Z»0V1  R WED- ITT  R'ffNfE  BT  THE"  FIR3 

TWO  ENTRIES  IN  YEARS  SELECT. 


016210 
016220 
JT62.5U 
016240 
016250 
JT62  60 
016270 
016280 


016300  GOSUB'  71(2) 
016310  INI T  (H£X(3D))X4S 


ini  I  ilcAUAJ 

016330  INIT(HEX(20))3S 

016340  STRCBS,1,L£N(TYPES(Q11)))  *  TYPES(Cll) 


ik  r>H>  M  t  If*  kfeff  LfWi  •k  I  •  ii ii  ;k«ii 


OEFFN'  73 
NS  =  HEX(FF) 


016360 

016370 


J  I  O JOU 

016390 

016400 


U  I  U**  I  u 

016420 

016430 


\J  I 

016450 

016460 


SELECT  PRINTER 

IF  NS  *  H EX (00)  THEN  JMP5Q57 


rniN I  KAO 

PRINT  X  5$ 

JMP5057INS  =  NS  XOR  HEX (FF) 


mini  in  j.  r  \  e.  *  r  >  J  f  o  * 

PRINT  SKIP(1)#TAB(5S)#*INVENT0RY  DISPLAY- 
PRINT  SKIP(1)#TAB(54), "YEARS  OF  AVIATION  SERVICE' 


6  7 

19  20* 


10  11  12  13  14  15 


17  18  ! 


MflfYll 


016480  FOR  P  =  1  TO  8 

016490  PRINT  USING  FL0W1 Q,LABELS(P) i 


liiAiuu  run  w  -  i  iu  17 

316510  PRINT  USING  FLOW20,  ROUNDUNVT  (  P, 3)  r0>  ) 
016520  NEXT  Q 


utin  iii<w  n'lHTBCi'i,  (iuiun<tfi<!i 


016540  NEXT  P 

016550  FLOwl 0: FMT  COL (2) *CH(25 ) ,XX (2) 


iii.\w«3«irwina:kMWHMri;tirJW< 


016570  PRINT  SKIPC1 >,TAB(1  )/X4 $ 
016530  PRINT  USING  FL0w1*LABEL5(9)? 


016600  PRINT  USING  PL0W2 /  R0UN 0 (INVT (9 , Q ) , 0) ? 
016610  NEXT  0 


016650  SELECT  CRT 

'0T666J  tJ0SUB,,~71  CTJ - 

016670  GOSU6'  71  (6) 

016680  GOSUB *  71(7) 

0T669U  "GO SUB*  7TTS0 
016700  RETURN 

01671C  *********************************  ******  ********************** 


TT5T7C-* - * 

016730  *  #14  -  THIS  SUBROUTINE  PROVIDES  ACCESS  TO  THE  * 

016740  *  IN-PROCESS  MONITOR  DISPLAYS  IN  RESPONSE  * 

01~6750  * - TO  TEMTORAR ILY  TW SETTTcD  5TCPS. - * 

016760  *  * 


01 6770  *********  ********  ******************  ****  ****  ****  ************** 
0 To 730  DTP  F W  “T 4TCT) 

016790  BS  =  "RESPONSE  TO  STO0*’ 

016800  STR(XS,1/16)  =  3$ 

OToBTO  '  ST  R  C  X  SO  1  B  /2  0  )  =  CT - 

016820  GOSUB*  59(XS> 

016830  RETURN _ 

016840  a************************************************************ 


016850  *  * 

016860  *  #51  -  THIS  SUBROUTINE  COMPUTES  THE  ARC  * 

on  6'870"  * - CXPAC  ITTnCTOR- TUTT  T  I N"  *  ETP5TTS  E'“TO - * 

016880  *  SPECIFICATION  OF  START  TIME  CT1 )  IN  * 

016890  *  YEARS  ANO  TOUR  LENGTH  <T2Q>  IN  MONTHS  * 

0  T  69  00  "i - * 


016910  ************************************************************* 
016920  DEFFN'  51  <T1,T2) 

UW5B . TTO'  V'TT/TZrn  »  T2 - 

016940  R9  *  0: H  »  1:T  »  INT<T10+1):8  »  l-RO(T) 

016950  IF  T  *  T10  ♦  1  THEN  JUM PI 

UT'6'96'0  8"  =~ ('T^TUT*T'T-'R'0TT')3 - - - 

016970  R9  =  <2-6)*<T-T10) 

016930  IF  (T-T1 0*12  >  T3  THEN  JUMP 2 

ars99B'  n  ■T3“-”Tr-Ti<n*iz - 

017000  JUMP5:H  »  H* (1-9) 

017010  T  *  T  ♦  1 

0T7'020'  B'"=  1'  -"  RCT(T) - 

017030  JUMPIsIF  T3  *  0  ThEN  JUMP3 
017040  IF  T3  <  12  THEN  JUMP4 

0T7gyg'  99  »  FT  T~H*T2-fl’) - - 

017060  T3  *  T3  -  12 
017070  GOTO  JUMPS 
017030  JUMP2JH  =  H * ( 1  - 3 ) 

017090  B  *  <(T-T10)-<T3/12)>*(1-RG<T>) 

017100  R9  *  R9  -  H*((2-8)/(1-8))*((T-T10)-(T3/12)) 

T3T71T0  50T0  jQMP3 - 

017120  JUMP4:8  *  (T3/1 2) *<1-R0 <T)  ) 

017130  R9  a  R9  ♦  H*(2-3) *(T3/1 2) 

Ol 71 40  JUM P3 : RETURN 

01715C  ************************************************************* 
01 71 60  *  * 
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017170  *  #52  -  THIS  SUBROUTINE  COMPUTES  THE  FIRST  TOUR  * 

TT7T3T3  * - lEnGTH- HD"  NcCfcSSAR  V  TC'SJPPC^T  'A  FLGd - * 

017190  *  10  AND  REOMT  D5  GIVEN  PL  0W3 A  CK  TOUR  CT3>  * 

017200  *  AND  CONTINUATION  CR4)  * 

UTT2T0~S  * 

017220  ***.*.*«..o*.***....*.***..***....*.*«****»..*.*».**.,*..**. 
017230  DEFFN'  52  (  T3/  10# 05 *  R4) 


~m £D  "Kl  *  T2 5"* 55/1057  (11- P D ( TJ )"♦  P 0115* Tft  4* *  ( T 3 / 1 2 )  T Y~~+  Cl  ♦  t R'4 *"*  ( 771  i 
017250  ) *7 

017260  T1  *  Kl / 2 

U1T270  rn~~ kt/ n  +  i - 

017280  IF  Til  >  60  THEN  Til  *  60 
017290  T2  =  INT(T11+.5) 

(jmao'Trr*"!  to™'? - : 

017310  FOR  Q  *  1  TO  7 

017320  IF  P  >  1  THEN  01  *  1  ELSE  Cl  =5 

TTTT3  3U”  TF”~ SITff  ’  ITT  *  "7 - 

017340  CONVERT  STR(T9$(P/G)/1/2)  TO  02 
017350  IF  02  =  0  THEN  JMP6037 
017360  D2  =  DZ  -  bl 

017370  CONVERT  02  TO  STR ( T 9$ (P / Q) / 1 / 2 ) / P IC C U* ) 

017380  JMP6G37:n£XT  q 


017400 

017410 

^rmrnr 

017430 

017440 


CONVERT  T2  TO  STR  (T9S(1  /I )  / 2)  /P  IC  C  »*  > 
CONVERT  T2  TO  STR(T9S(1/2)/1/2)/PIC(##> 


GOSUB*  67 
GOSUB'  83 
L  *  1 


"01 74  50-"I  F-K  -<  "T  5~1  HE  W  “JPrP'Z-S  0 - 

01 7460  L  *  L  ♦  1 

017470  JMP250: 00(3/1 )  »  00(3/1)  ♦  TCOC A1  (Q11/L>/3+L)*INVT0(31 ) 


017430  REM  COMPUTE" P  ROPE'S  51  ON  AT  EDUCATION 
017490  00(6x1)  *  00(6/1)  + 

017500  00(6/2)  =  DO ( 6/ 2 )  ♦ 


NUMB  =RS' 
P0(2)*INVT0(1 2) *2 
P0( 3)*INVT0(1 3) *.5 


JT75T0  "00(6/3)  =  00 ( 87 30'  PO (30 *~INV TO  (1  8)  »' .3~ 

017520  FOR  I  *  1  TO  12 
017530  T5(I)  *  0 


017340- 

017550 

017560 


T6(I)  =  0 
T7 ( I )  *  0 
T3(I>  *  0 


01 7570  NETT  1 
017580 
017590 


OTTgtrr 

017610 

017620 


CONVERT  STR(T9$(3/1)/1/2)  TO  T12 
03  *  INVT0(31)*P0(1) 

005  U5~*"35  C0/111/INVTC(3T)*(1*P0(V1)7  TT'T  T 
RETURN 


017630 

017640 

017650 


#53  -  THIS  SUBROUTINE  COMPUTES  THE  ENTRIES  FOR 
LOS  CELLS  IN  INVO  WHICH  RESULT  IN  EXACTLY 


* 

* 


0 17680' 
017670 
01  7630 


TT  TETTOTTNcT.  TN' 
NOTE 


T 


TEAR  'T 

R0(T3)  IS  THE  RATIO  OF  THE  NUMBER 
AT  THE  END  OF  YEAR  T3  TO  THAT  AT 


017690  * 
OT770U  T 
317710  * 
017720  * 
J1/73U  * 


THE  ENO  OF  YEAR  T3“1.  RG(1  >  =  YR1/ACC.  * 

THE  INVENTORY  IN  V  =  A>T  T3  Ib~THb  AREA - * 

UNDER  THE  DISTRIBUTION  CURVE  IN  THE  * 

YEAR  T  3.  * 

- - - T 


017740  *  ****************  ******  ********  ****************  ********** **** 
017750  OEFFN*  53<N,T1> 

TT7T6U  T3~"=~'I NT  ( TT71 1  ~*-~T3 - 

017770  B6  =  (T3-T1/12)*(1-R0(T3)) 

017730  H  *  N*<1-36> 

TJT77VU  NT  = . H - 

017800  FOR  P  *  T3  TO  1  STEP  -1 
017810  INVTGCP1  =  H*<1*R0(P})/ (2*R0(P>) 

017S20_H"=  HT'RCR  P) - 

017830  NEXT  P 

017840  INVT0C31)  »  H 

■’JIYSbU  ”H  "="  HI  r_~ 

017860  FOR  P  =  T3  +  1  TO  30 
017870  INVTOCP)  *  H*(1+R0<P))/2 

J1/88U  H  V  -FT5WCP) - 

017890  NEXT  P 
017900  FOR  P  =  1  TO  31 

01  7V1U  IHYT'CefTy?'"-  lNVT'l'B^ P)  INTTOCP) - 

017920  NEXT  P 
017930  RETURN 

Ul  fV4U  *********************** ******  ******************************** 
017950  *  * 

017960  *  #54  -  THIS  SUBROUTINE  COMPUTES  THE  DISTRIBUTION  * 

Ul/V/'U  *  OH  A.  UNI  f  Ul*  LAP  AC  ITT  OVER  AN  AKL  UIVfcN  *" 

017930  *  THE  START  TIME  <T1>  IN  MONTHS  AND  TOUR  * 

017990  *  LENGTH  <T2)  IN  MONTHS.  THE  RESULT  IS  LEFT  * 

013000  * - IN  H7(  K - 5T 

013010  *  * 

013020  *******  ************  **********************************  ******** 
013030  DcFW  S5TTT7T27 

018040  T10  *  T1/12:T20  »  T2/12:L  »  1:S20  *  0 
018050  FOR  P  »  1  TO  12 

0  78  U'6  0"  TT  7  CT)~  T3 - * - 

013070  NEXT  P 

018030  6  *  (1-RO(INT(T10f1)))*<INT<T10+1)-T10> 

UT8U7U  Y1/cl*1>  *  m  *'QNTUT0*1 J-Tl  rJJ 

018100  S20  *  S20  ♦  T17U*1> 

018110  L  «  L*1:H  *  t-B 

0131  20  T 20  »  T 20  -  IN  T'CTl  U-t-1'7 - TTO - 

013130  JMP31 : IF  T20  <  1  THEN  JMP3C 
013140  T1 7  <L*1 )  *  H*<1*R0<INT<T10-M.>)>/2 
Ul 3l 50  S7U  *  S20—*  T171L+1J 


013160  H  *  H*R0<INT(T10+L)> 
013170  T20  *  T20  -  1 
J13T3U  L~*  L  +  1 - 


013190  GOTO  JMP31 

01  3200  JMP 30 : B  *  T20* C 1-RO < INT  (T1 C+L) ) > 


013210  T17CL+1) 


<C2-8)/2)*H*T2Q 


01  3230  S20  =  S20  ♦  T17CL+1  > 
013240  T1 7  (1 )  =  L 


013260  FOR  P  *  2  TO  L+1 
018270  T1 7 (P)  =  T17(P)/S20 


018290  RETURN 

013300  ************************************************************* 


018320  *  #55  -  THIS  SUBROUTINE  ACCEPTS  START  TIME  <T1> 

013330  *  TOUR  LENGTH  CT2)*  AND  START  FLOW  CIO). 


018350  *  (12).  MANPOWER  EY  YEAR  IN  T8 (  )*  TS(1> 

01 8360  *  NO.  OF  CELLS. 


y 

UlBArU 

018380 

018390 

*  * 

•  ********  **********  ********  ******  **  **•*  ********  **********  **  ** 

DEPPN*  55(T1*T2*I0*A*B) 

■* 

;  ** 

—  mm 

TlO  “TT7T7TT7U  =  T2/l<! 

.  - 

018410 

T3  =  INT(T10+1) 

013420 

C  =  0 : C 2  *  Oil  =  1 

018440 

018450 


T8CP)  *  0 
NEXT  P 


018470  IF  A  >  1  THEN  JMP21 
018480  T4  *  T4  ♦  4 


1  OH  fU  Ir  U  *  C  l 

018500  T4  *  T4  ♦  2 

018510  JMP21 :K1  *  (T3-T10)*(1-R0CT3)> 


i  *  t  j 

013530  T3 (L+1 )  *  I0*(<2-Kl)/2)*(T3-T10) 
018540  C2  *  C2  ♦  T5(L+1) 


TA'l 


013560  IF  T20  >«  0  THEN  JMP22 
018570  M  *  UT3-T10)+TZ0)*C1-R0(T3>> 


n  *  n/  \  i  — 1\  i  * 

018590  T3U  +  1)  =  T8U  +  1)  -M*( ( 2-K1 ) /2> * ( CT 3-T1 0>+T20> 
013600  C2  *  T8(L+1> 


klllWI'l 


018620  JMP22:L  *  L+1:T3  «  T3+1 
018630  IF  T20  <  1  THEN  JMP24 


V  >  V  -T  W  I  V  »  %  •  *  —  •  '  »  »  *  * 

013650  H  *  H*R0(T3) 
013660  C2  *  C2  ♦  T3U+1) 


I U  I (U  *  l(U  I 

013680  GOTO  JMP22 

018690  JNP24:K1  «  T20* (1 -R0  (T3 > ) 


018710  C2  *  C2  ♦  TS(L+1> 
013720  T3 ( 1 )  «  L 


B-36 


018730  12  *  H*<1-K1) 

Jlbf4Q  JMP23:T4^"T4/1  2 
013750  T 3  =  INT ( T1 0  +  1 ) 

01  3760  K1  =  (T3-T10)*(1-«C(T3)  ) 

TJT877XT  H  =  I0'*(1-KT> - 

018780  C  =  I0*(<2-K1 )/2)*CT3-T10) 

018790  IF  T4  >=  CT3-T10)  THEN  JMP29 
013800  K 1  =  i(T3-TlO)-T4)*C1-Ru(T3J) 

013810  H  =  M/C1-K1) 

013820  C  =  C  -  h«(C2-K1)/2)*(<T3-T10)-TO 

5'fT830"  £'"  =  C'2"  -  C - 

018840  RETURN 

013850  JMP29:T4  *  T4  -  <T3“T10) 

"01  3360  T3  =  t3  ♦  1  '  • 

013870  *1  =  T4«(1-R0(T3) ) 

013880  C  =  C  ♦  H*(C2*K1) /2>*T4 

0T8890  C  "■  C2  -  C - - - 

018900  RETURN 

018910  ***********  ****************************  ********************** 


013920  * - * 

018930  *  *56  -  THIS  SUBROUTINE  COMPUTES  T2  REQUIRED  TO  * 

018940  *  MATCH  A  REQUIREMENT  05/  SPECIFIED  WITHOUT  * 

018950  *  Pipeline#  bESInning  at  fi  uITh  iNPut  t'o.  * 

018960  *  * 


018970  *******  **  **************  ********************  ****  ******  ••**  •*  ** 
618930  OEPFN*  $6 t T 1 # 10# 05# I # J ) 

018990  T10  =  T1/12 
319000  T 4  a  1 : T2  *  0:L  *  0 

019010  It  !'  >TTh£n  - 

019020  T4  *  T4  ♦  4 
019030  IF  J  >  2  THEN  JHP85 


01904U  T 4  *  T4  *  2 
019050  JMP35 :T2  *  T4 
019060  T3  *  INT { T1  0*1  ) 

019070  T 4  *  T4/12 

019080  A  »  (T3-  T10) *(1  -  R0(T3)>  7*FIN0  FIRST  H  */ 

019090  H  *  I0*C1-AJ 

0TT1 OC  A  =  ( T'3  ( TTO+  Tl  i )~( 1~fiOTT3  J ) - /*PInO  nEw  10  *1 

019110  10  *  H/<1-A) 

019120  IF  T 4  <*  T3  -  T10  THEN  JMP8 6 
619130  L  *  1  : 

019140  A  »  <T1 0  ♦  T4  -  T3)*<1  -  RCCT3  ♦  L) ) 

019150  10  *  H*<1-A) 

019160  H  *  H*RO  ( 1 3  ♦L ) 

019170  A  *  <<T3+L)-<T10+T4))*<1-RG<T3*L> > 

019130  JMP36IK2  =  (<I0  ♦  H)/2)*(<T3+L>-CT10*T4J) 

0T91  90  IF"kT">  'D'5  'Tm£N_JmP87 - 

019200  T2  *  T2  ♦  UT3  ♦  L)  -  CT10  *  T4)>*12 

019210  JMP88:D5  »  05  -  K2 

01 9220  L  *  L  ♦  1 

019230  10  *  H 

019240  M  *  H*RQ(T3*L) 


019250  K2  =  (10  ♦  H)/2 
TTT2T0  Tp  K7  5  03  THEN'  JMT37 
019270  T2  =  T2  +  12 
019230  GOTO  JMP6  8 

J 1  V i  V tl  -JKP 8 T: B "”=  27 ( Tir3r0"(T3';T;  3  5  T*  0  2  >  05  *7 

019300  C  =  (d+RO(T3*L))  / C 1 “RO  CT3+L)  ))*(D5/K2>  /*B,C  =  QUADRATIC  CO*/ 

319310  T  =  <8  -  SQR ( B A  2  -  4*C)>/2 

7JT9  3  2  U  T  2  “=— T T‘*  _  T  •  1 1 - 

019330  RETURN 

31 9340  a********************************** ************************** 


JT935Q  * - * 

019360  *  #57  -  GIVEN  THE  REQUIREMENT  A,  TOUR  LENGTH  T2,  * 

019370  *  START  TIME  Tl  *  AND  DESTINATION  1,J  FIND  * 

TT93-50"  * - TTTE  TTT?ljT  ITH - * 

319390  *  * 

019400  ************************************************************* 

arVATO  ■  DTFTTT'T7  (TT 7 T77T7I ~JJ - 

019420  Tl 0  =  T1/12 
019430  T4  *  1 


019450  T4  =  T4  +  4 
019460  IF  J  >  2  THEN  JMP190 

UTV470  T4"~s  r4~*~2 - 

019430  JMP1 90:T1  *  Tl  ♦  T4 

019490  T2  *  T2  -  T4  , 

U195U0  G0$UBJ  5TTTT7T77  :  I 

019510  FI  *  (2*A)/R9 
019520  T 3  *  INTCT1/12  *  1) 

01V550  B  *  n3~ri/T23*'n"B0n337 
019540  H  *  F1*C1-B) 

019550  B  *  (T3-T10>*(1-R0CT3)> 

019560  10  =  H/  (1*80 -  j 

019570  Tl  *  Tl  -  T 4 
319580  T2  *  T2  ♦  T4 

J1V59U  RETURN - - 

019600  ************************************************************* 

019610  *  * 

319620  * - *5T  -~THIT  SJBR00I1N;  C R ETT ET~ T HF  SOORCE - * 

019630  *  ALLOCATION  MATRIX  A2  GIVEN  THE  DESTINATION  * 

019640  *  NODE  (J)  AND  THE  REQUIREMENTS  INOEX  (S10)  * 

UT9B7U-* - - *■ 

019660  ************************************************************* 

019670  OEFFN*  58(J#S10> 

31"9'6T0  "M  *  0:R2  *'0 - 

319690  FOR  P  *  1  TO  7 
31 9700  FOR  Q  *  1  TO  7 

019710  A2 T F7TJ7  *  0 - 

319720  NEXT  Q 
019730  NEXT  P 

JTV75TJ  FT3R  P'  *  '1  TO  7 - 

319750  X2  *  0 
319760  FOR  fi  *  1  TO  6 


019770  IF  00(G*S10)  <=  0  THEN  JMP76 

TT77T0  IT  STTTTVTrT7Tr7T*F731  =  "KNNT  T  H  =  N  JMP/6 

019790  TS  (  3)  =  OOOsSIO) 

019800  K2  *  K2  *  T8<Q) 


J1V810  GOTU  JnP  t  f 
019820  JMP  76: T8 (3)  =  0 
019830  JNP77 :NEXT  Q 

TTmTTTF  *2  *"  U  THEN!  "OM'P'i’  V - 

019850  FOR  R  *  1  TO  6 
019860  T3  <  R )  =  T3<R)/K2 

OT78/U  NEXT  R - 

019880  FOR  Q  *  1  TO  6 
019890  IF  T8(Q)  >  0  THEN  JMP7G 

Tmwcmcjj-*  u - 

019910  JMP70: A  2  <  P*  Q)  =  T3<3) 
019920  NEXT  Q 

OTIVV  30  JHF79 TWFXT  ~P - 

019940  RETURN 

019950  *********************** 
017960 . « - 


019970  *  *59  -  THIS  SUBROUTINE  PRODUCES  OUTPUTS  IN  RESPONSE  * 

019930  *  TO  ADAPTIVE  INPUTS  AT  TERMINAL  WHEN  IN  * 

UT  9990  * - TO  NITORl  NGnmOET - *■ 

020000  *  * 


020010  *  ********  **  **  **********  **** ****  ************  ****  **********  **  *• 
■JZTJU70- UFF7TT  57TXT0  • 

020030  FOR  Q  *  1  TO  4 

020040  09(3)  *  0 

U2UU5U  FOR  P  *  T  TO  7 - 

020060  D9 ( Q)  *  09(0)  *  00<P,Q) 

020070  NEXT  P 

020030  tmqrg-  coacq)  j  j9(qo'7703(si 

020090  NEXT  0 
020100  010  *  0 

0201  ia  for  p  =  i  nr~7 

0201 20  010  *  010  ♦  INVT<P*1) 

020130  NEXT  P 

J2CJUU  P;  *,INT((/V-P3-P6-25J/2J - 

020150  P10  *  INT(<79-LEN(XS))/2) 


020160 

STR (OSs 1 s  2)  * 

STR (OATS*  3/2) 

—  ri  in  i 

”5TimrS7T7T7  *~ 

m  f” 

020180 

STR (0$*4s  2)  * 

STR (DATE#  5*2) 

020190 

STR (DS*6s 1 )  * 

m  jn 

i—inm 

020210 

STR  (TSsI s 2)  * 

STRCTIME/1/2) 

020220 

STR(TS*3*1)  * 

N  ,  If 
m 

—  Mini 

020240 

JMP 501 :INIT(HEX(20))P1$<1> 

020250 

STR  (PI $( 1 ) *1 *10)  *  “WORKING  0N“ 

—  Mini 

5  TkCPTTTTT7T2< 

•  P  5 )  =  AS 

020270 

STR(P1$<1)/13*P5*2)  *  "IN" 

023230 

STR(P1S<1)/16*P5/P6)  =  TYPESOII) 

020290  STR  CPI  SCI )#17*P5+P6#9)  =  "COMMUNITY' 


RI«r4*»V9Jil 


ATC7#P10) #FACCHEXC8C) > # X J #  AT  < 7# 54 ) # FAC ( HEX C 3C  )  > #  ! 

05#ATC8#54> /FAC  (HEX  (80  )#T$#  ! 


#  rKatuuN  ur  rut  / 

ATC11 #15)#"SENI0R  C OMM AND ERS" # AT < 1 1 # 35 > # 
FAC  (HEX  (80  >#D9  (4)  #  PIC  (  *».»**), 


D9(3)#PIC (A*.##*)# 

ATC13#15) #"LT.  COMMANDERS"# AT  Cl  3#  35 ) # F AC  CHE  X ( 3C ) ) # 


AT ( 14# 1 5 ) #"LT .  ANO  3E LOW" # AT C 1 4#3 5 > #FAC (HEX C8C ) ) # 
09C 1 ) #PIC CP#.###)# 


ATC17#10) #"ACCESSIONS"#AT  C17#  39 ) #  F AC CHEX C 8C ) ) # D1 0# 
PICC#.##.A#>  # 


FAC (HEXC8C))#T11#PICC *#*.»#># 

ATC20#10) # "OUTPUT  OPTIONS.  PRESS  PF  KEY:"# 


#"1.  NODE  FL  OWS  #  ATT  21#32)#2.  InVc 
AT  C21 #  54) #"3.  REQUIREMENTS"# 

ATC  22#1 5) #"4.  EXCESS  FLOW"# 


020310 

020320 


W  C.  U  -)  J  u 

020340 

020350 


020370 

020330 


jcujvu 

020400 

020410 


020430 

020440 


I'W'rti'i 


020460 

020470 


J2U480 

020490 

020500 


020520 

020530 


•020550  GOTO  JMP407  #  JMP402#  JMP403#  JMP404#  JM  P405  #  JMP  5 1  01  #JMP5100 
020560  JMP51 01 :N  s  i 


T4' WH'l'M'IWAIL'Il 


320530  GOTO  JMP501 
020590  JMPSIOOzGOSUB'  73 


duiu  jnrjui 

020610  JMP402: /‘OUTPUT  MATRIX  14*/ 
020620  FOR  P  *  1  TO  7 


020640  FOR  R  *  1  TO  7 

020650  CONVERT  Z4 (P#«)  TO  S TR C PI 3{ P) # 7 *B -6 #6) # PIC C »U*. ## ) 


AT<24#10)#"PRESS  ENTER  TO  CONTINUE  PROGRAM"# 
KEYSC3INC0)SBINC1 ) 8BIN C 2) &B IN C3 ) &BI N (4) SBIN (1 1 > &BINC12))# 


PITl'KN 


020670 

020630 


U£UO  TU 

020700 

020710 


utur  cu 

020730 

020740 


020760 

020770 


023790 

020800 


#  m  i  v  y  #  o**  /  #  a  # 


NEXT  P 

ACCEPT  AT  C 5 # 3 2 ) #"NC0E  FLOW  VALUES"#  ! 


1  V  f  # 

ATC9#8)#"ACTIVITY"# 

ATC9#29)#"0NE"#  ATC9 # 36) # "TW 0"# A T C9# 42) # "THREE*# 


#  a  t  v  >  # 

ATC9#70) #"SE YEN"#  ! 

ATC11#2)#FACCH£X  CeC))#LA3£LS Cl ) # ATC1 1 # 27 ) # FAC C HEX C 8C ) > #  ! 


rm 

AT  Cl  2# 2) # FAC (HEX  CSC))# LA 3ELS  C2># ATC1 2# 27 ) # FAC C HEX C  3C ) ) # 
P1SC2)#CHC49)# 


P1SC3)#CHC49)# 

ATC14#2)#FAC  CHEX  C8C) )#LA3ElS  C4)#  ATC1 4#27)#FACCHEXC  30 )# 


B-4  0 


HI 


020810 


U2 JS2U 

020830 

020840 


u^ue 3U 
020860 
020870 


020880 

020890 

020900 


U2UV1U 
020920 
020930 
4 

020950 

020960 


020980 

020990 


021000 

021010 

021020 


021040 

021050 


J21 U6U 
J21070 
021030 


P1S(4)*CH(49),  5 


N;X(£C;)*LA3ELSQ5/*ATt15*27)*rAC 
PI  S(5)/Ch(49)* 

AT  (16*  2)  *FAC  (HEX  (30)  *LA3EL$  (6)*  AT(1  8*27  >*FAC  (HEX  (  30)*  ‘ 


Pl»^8J*LHl4yj*  ■ 

AT  (17*2)*FAC (HEX (80 )*LA3ELS  (7) * AT<1 7, 27 ) *FAC C HEX C 8C ) ) *  * 

P1S(7)*CH(49)*  1 


A  T  { 1  9  *5  ),"******************•**»******#*;■•**■****■*******■***•** 
AT(22*10)*" PRESS  ENTER  TO  RETURN  TO  OUTPUT  MENU”* 


8  IN  ( 0)381 

JMP50 1  * JHP51 02 

JMP51 02 : N  =  2 
GOSUB'  71  (  N  ) 

GOTO  JMP501 

JMP403:/*0UTPUT  SELECTEO  INVENTORY  ENTRIES*/ 


NVENTORY  DISPLAY  * 

AT(7*10)*"S£LECT  FOUR  YEARS  FOR  OUTPUT  BETWEEN  1  AND  30"* 
AT  CIO#  15)*  “FIR  ST  YEAR"*AT(10*30)*T15  (1), 


P ICC#  #)*  ! 

AT(12*15)*" SECOND  Y£  AR"*  AT  ( 1  2*3C  )  *T1  5  (2  )  *  ! 

PIC(»#)*  i 


*  A  1  l  1  bt  /  II 

PICUl#)*  l 

AT (16*15) * "FOURTH  YE AR"*AT (1 6*30 > *T1  5(4) *  ! 


Halt  ! 

AT(21*10)*“PR£SS  Pe2  TO  RETURN  TO  OUTPUT  MENU"*  ! 

AT(23*10)*"PR6SS  PF1  TO  CONTINUE"*  ! 


021100  JMP502*JMP501*JMP5103 
021110  GOTO  JMP502 


0211 30 
021140 


GOSUB*  71 (N) 
GOTO  JMP501 


021160  FOR  P  =  1  TO  9 
021170  INIT(MEX(20))P1S(P) 

TZTTJT  STfrPTS<P1*1*24)  =‘LA3SLi(P> - - 

021190  FOR  R  =  1  TO  4 

321200  CONVERT  INVT ( P* T1 5 ( R> )  TO  STR ( P 1 3 C P  )  *1 8 *9* R * 6 ) * P IC ( #« *. *« > 

021210  NEXT  R 
321220  NEXT  P 

021230  ACCEPT  AT  (3*32) *"INVENTORY  DISPLAY** 

■321240  4T177  33)  *"  y'e  AftS"  * 

3212  50  AT (8*1 6) *"ACTIVITY"*AT(5*3S)*PAC (HEX  ( 8C  )  )  *T1  5  ( 1  ) * P  IC  ( **)  , 

321260  AT (8*4 7)* FAC (HEX (SC) )*T15C2>  *PIC(#*) *AT( 5* 5o> *  FAC < M£X (3C ) > 

321270  *Yl5(3)*AlC(F#«)*AT(3*65)*FACtHgX(SC))*T15(4)*PlC(F»)* 

321280  AT(10*3)*FAC (HEX (8C))*P1 3(1 ) * 

321290  AT(11*S)*FAC(HEX(8C))*P1 S(2>* 

12TIW - aT(  TT7ir;fxci»zx  ( jni7?T5  nr; - 

321310  AT(13*3)*FAC(HEX(EC))*P1S(4), 

321  3  20  AT(14*3)*FAC  (HEX  (80  )*P1  3(5)  * 


B-4 1 


021330 


*-  i  ~  vj 

021350 

021360 


«»  l  -»  l  U 

021330 

021390 


W  4.  I  «•  w  u 

021410 

021420 


4  I  J  W 

021440 
021450 
'12 1460 
021470 
021430 
121  4VCJ 
021500 
021510 
"121520 
021530 
021540 
UTTT53T 
021560 
021570 
12TW 
021590 
021600 
“121 61 U 
021620 
021630 
"121640 
021650 
021660 
17TF7U- 
021630 
321690 
121 710 
0  2  1  7 1  0 
021720 
121710 
021740 
021750 
i7m 
021770 
021730 
121770 
021800 
021810 
12T3TO 
321330 
021840 


AT  (15/ 3) /FAC  (HEX  (80) /PI  5(6)/ 


mi  \  lO/ss/rMltnEAlOLJ  J/r1!  it.  (  }  , 

AT  (17/3)  /  FAC  (HEX  (80  )/ PI  S(  8)  / 

AT  (19/5)/” ******  ****************************************** 


AT  (21  /  S)  /  FAC  (HEX  (80) /PI  5(9)  / 

AT (23/5) /”*•****  ************ ************  ******  ************ 


l  AT (2 4/ 10)/ "PRESS  ENTER  TO  RETURN  TO  OUTPUT  MENU”/ 

l  NET S(3IN(0) SBIN (1 1 ) )/QN  (3IN ( 0) &S IN  (1 1  ) )  SOTO  J MF 501 / JMP5 1 0 4 


GOTO  JMP501 

JMP404:/*0ISPLAr  REQUIREMENTS  MATRIX*/ 

1~0~R  T>  «TT8  7  - - - - - 

INIT(MEX(20) )P1 S(P) 

STR (P1SCP)/1/24)  =  LA3SLSCP) 

~mn?  -g  -rip  4  — — - - - ______ - - 

CONVERT  DOCP/R)  TO  STR(Pl$(P)/18+9*R/7)/PIC(####.#8) 

NEXT  R 

IE  XT"  - - ______ - 

INIT (HcX ( 20) ) PI  5(8) 

STR(P15(8)/1/24)  =  "LOWER  GRADE  FILLS” 

">UK  R  -  1  nn - - - - 

CONVERT  Q37CR)  TO  STR (P 1 5(8 )/ 27+9 *R /7) , »IC ( ##*» „ **) 

NEXT  R 

ICC  e>  i  TTTT7TT 777t TOTH rffTKTS . D"1 3  PL  AT"  / - - 

AT  (7/36) /" CATEGORY"/ 

AT (8/1 6) /"ACTIVITY”/ AT (8/3 7) /”LT",AT (8/4 6) /"LCDR”, 

ETCT7  55)  /  ”ClR"/ATC8/fe4)/"U)K»”/ - — — 

AT  (10/8) /  FAC  (HEX  (80) /  Pi  5(1)  / 

AT  (1 1  / 8) /FAC  (HEX  (80  >/ PI  5 (2)  / 

BTC  72/  8)  /FITC  (HEX  CSC)  3  /VI  S  ( 3)  ; - - - 

AT  (13/ 8) /FAC  (HEX  (80) /PI  5(4)/ 

AT  (14/ 8)  /  FAC  (HEX  (80  )/P1  5(5)  / 

BT(Tb/8  J  7 FTC X HE X'CTC  )  J  / PI TT877 - - - - 

AT (16/8) /FAC  (HEX  (80) /PI  5(7)  / 

£  + »  »  »  » »»<!►»»»»  ie »»» w n  ,  1  ■  ■  —  ..  ...  —  — — 

AT(20/S)/FAC(HSX(8C))/P15(8)/ 

AT (22/5)/ "************************♦********************»** 

AT(24/10)/*PRESS  ENTER  TO  RETURN  TO  OUTPUT  MENU"/ 
KEYS(3IN(0)8BIN(11) )/  ON  (B IN (0 ) & 3 1 N (1 1 ) )  GOTO  JMP501 / JMP 51 05 

Iff  PH  33  :  Giro  B  ’  7TTTJ - - - — - - - 

GOTO  JMP501 

JMP405:/*0ISPLAY  SURPLUS  FLOWS  ( C  7)  */ 

FOR  P,_i  1  10  3  - - - - 

INI  T  (HE X  (  20 )  )  Pi  5 (  P  ) 

STR  (  PI  3  (PX*  1  <•.?<£■)  *  L A iC-t «'(■?  )  -  . ~  • . * . . 

"F'3tnr~=1  TO  7 - - - — - - - 

CONVERT  R0UN0(C7(P/S)/1  )  TC  STR(P1S(P)/21*6*R/5)/PIC(*jf«.  s ) 

NEXT  R 


B-42 


021870 

021880 


i 

021900 

021910 


sJC.  I  7  faU 

021930 

021940 


021960 

021970 


021990 

022000 


iimniu 


022020 

022030 


U<£<iU4U 

022050 

022060 


vmini  Ktutr-i 


NEXT  P 


*  a  \  r  l 

FOR  R  =  1  TO  7 

CONVERT  R0UN0(0UTA(R)/1 )  TC  STR < P 1  $  ( 8 > / 2 1  +  6 »R/ 5 ) #°IC ( »#« .  #> 


ACC8PT  AT (3*28)* "SURPLUS  FLOW  (37)  DISPLAY" * 
AT(7/33)/"TQUR"/ 


I  VC/  107/  1  i  I  1  I  I  /HI  VO  S  J  f  /  f  I  /Ml  \  O/**;//  L.  /  ™  I 

"3"/ AT ( 3/5 5) /"4" / AT ( 3/ 61  )/ "5 "/AT (8/ 67)/ "6"/ AT (8/7 
AT(10/3)/FAC(McX(8C))/P1 5(1)/ 


c 

AT (12/8) /FAC (HEX C  80) /PI  SC  3)  # 
*T  (13/8) /FAC  (HEX  (80) /PIS  (4)/ 


s 

AT  (15 '3) /FAC  (HEX  (80  ) /PI  S(  6)  / 
AT  (16/ 3) /FAC  (HEX  (80  )/ PI  5(7)/ 


******  **********  **********  ****  *********< 
*****************  ******** 

AT(2Q/8)/FAC(H£X(8C))/P1S(8)/ 


/  3  j  / 

**********************", 

AT(24/10)/"PRSSS  ENTER  TO  RETURN  TO  uJTPUT  MENU"/ 


» rx»i '  ■mi;  «; 


022080  JMP5106:G0SUB'  71(6) 
022090  GOTO  JMP501 


pm  niw  LiiM  m«M<i 


022110 

022120 


U  £  &  I  JU 

022140 

022150 


o 

022170 

022180 


RETURN 

*##**#****-#♦♦****  #*  #  *  **  t  *  *  *  *  *  1 


******** ******************* 


*  #60  -  THIS  SUBROUTINE  ASSIGNS  THE  CORRECT  FLOW  * 

*  TO  PG  SCHOOL  AT  T1  FOR  COURSE  LENGTH  T2  * 


in  rLCCi  i  uvjk  uuirui  r  i  - 

*  * 
a************************************************************ 


022200  T3  =  T1/12 
322210  T4  *  INTCT3+1) 


=  I 

022230  C  =  0:C2  *  0:L  »  1 
022240  T8(1)  *  PWT4-T3) 


022260  L  *  L 
f  022270  C2  * 

♦  1 

C2  ♦  T8(1) 

aHH£^t2Sanr#M.HB4EBi 

2  *  C2  / 

( 1 2  * ( T4-T3 ) ) 

322290  JMP70 

6:  IF  T 21 

3  <  1  THEN  JMP705 

5  322300  T3(L) 

=  Pi 

022320 

022330 


u 

022350 

022360 


C  *  C  ♦  T8(L) 

C2  *  C2  ♦  T 8 (L) 


L  =  L  ♦  1 

GOTO  JMP706 

JMP705 : T3(L)  =  R1*T20 


B-43 


L*l  fi 


022370  C  =  C  ♦  T8(L) 

C2  =  C2  ♦  T i(L) 

022390  FOR  X  =  1  TO  L 

022400  INVT(6/T4-1+K>  =  I N VT (o / T4- 1 +  X )  ♦  T3(K) 
rrj  j  z.  q  n""rn tfrrTTTT'iTi v  t — -  tui/ttp  — r — rrrn 

022420  NEXT  X 

022430  00(6/1)  =  00(6,1) 


d  -  p  l 

022450  K3  =  C2 
022460  K4  =  C 


022480  FOR  X  -  1  TO  L 
022490  T6(X)  »  T8(K) 


022510  T4  =  INT (T3  +T20+1 ) 

022520  61  =  (T3*T2Q-(INT(T3«-T20)))*(1-R0(T4)) 


022540  T20  *  T20  -<T3+T20-INT(T3+T20>> 
022550  JMP937: IF  T20  <  1  THEN  JMP936 


I 


022600  JHP936:T4  *  T4  -  1 
022610  81  *  T20*(1-R0(T4)> 


M  * 

022630  (6  H 

022640  GOSUB'  55  (T1 /T2/H/6 / J) 


J  VJ  i  >*  —  ini  u  ir 

022660  X4  *  C  -  X4 
022670  Q8  *  1 


022690  XS  =  0:K1  =  2 

022700  IF  T1  <  56  THEN  JMP943 


J  dd  l  \  U  M  *  M  ▼  | 

022720  JMP943: IF  XI  <  J  THEN  JNP946 
022730  Q6  *  0 


liiiMTiiijiiviMiimKiimj'XAf 


022750  K5  *  K4  -  (00(3/1 )*D0(2/1 ) ) 
022760  03  »  (00(3/1) ♦D0(2/1))/K4 


II  |  4  j|*Mi  iiilffi  i  ■  f :  1 4 :  ■>  I  Jl'SVJ 


022780  IF  (1-Q6)*X4  >  00(2/1)  THEN  JMP939 
022790  GOTO  JMP941 


tmnnwEi; 


022810  06  *  00(3/1)/(00(3/1)*C0(2/1)) 
022820  JMP941 : FOR  X  «  1  TC  L 


urmuBii' 


I'MM: 


022840  I.*4VT(2/T4-H-X) 
022850  INVT(S/T4-1+X) 


H 

022870  INVT ( 7/ T4 *1 *X ) 
022830  INVT(3/T4-1 *x) 


*  IN VT ( 2 /T4-1 +X )  +  (T8(X+1)-T6(X))*(1-06>*Q8 

*  INVT(8/T4-1+X)  -  (T8(X+1)-T6(X))*Q8 


HP  94  2 

=  IN  VT  (  7  /  T4-  1  +K  )  (T8(X+1)-T6(X))*(1-08) 

«  INVTC8/T4-1+X)  -  (T8(X+1)-T6(X))*(1-Q8) 


022890 


022910 

022920 


022940 

022950 


hi-ran 


022970 

022980 


JMP942 : NE  XT  K 


/KD/3/3)  =  mu"T-tcN  JF 
CONVERT  STR (T9S(2/K1 )/3/3>  TO  02 
02  =  INT(02*Q8*(1-C6)*(C2-K3*.5>> 


4.  I  U  S  I 

00(2/1)  *  00(2/1)  -  K4*(1-C6)*Q3 
JMP963:  IF  STR(T9$(3/M)/3/3)  *  *NNN“  THEN  JMP964 


NVERT  STR 
02  =  INT  (Q2-fQS*Q6*(C2-K3  +  .5)) 

CONVERT  02  TO  S TR ( T 9$ ( 3 / XI ) / 3/ 3 ) / P I C ( *» * ) 


I  ill  l 


IXtXiCQH 


023000  JMP964: IF  STR CT9$(7/Kl ) /3/3)  *  "NNN"  THEN  JHP944 
023010  IF  K 5  <=  0  THEN  JMP944 


jcjvjtu  iunvcki  oikv  i  iu 

023030  02  =  XNTC02+<1-Q8)«(C2-K3>+.5> 

023040  CONVERT  02  TO  STR (T 9 $ (7 /K1  ) / 3/ 3 ) / P I C ( ## 9) 


023060  JMP944: 12  =  K2 
023070  C 2  =  K3 


023090 

023100 


K*mtm 


023120 

023130 


nn 


023150 

023160 


I'H'lNilinas.'iflMiMinmiin.'nviirMiiH 


r * 


riTMirfiTiiTififim  iti  if  !■■■»■  ■!»■« 


AGAINST  INVENTORY  AN0  ADJUSTS  TO  STAY 
WITHIN  LIMITS.  NEEDS  START  TIME  T1 /  1/  J, 


fcHM 


023180 

023190 


L  »  T8(1) 
Q6  *  1 


023210  FOR  R  =  1  TO  l 
023220  T3(R)  *  T3(R>1) 


•r«rAna:L 


023240  T8(L*1)  *  0 
023250  IF  I  *  9  THEN  JMP755 


l»l»l 


«i:ii 


023270  Q6  *  00(I/S10)/C 
023280  FOR  R  *  1  TO  L 


023300 

023310 


NEXT  R 
C  «  C*Q6 


023330 

023340 


12  =  I2*Q6 
Q2  *  38*Q6 


023360  IF  T8(R)  *  0  THEN  JMP753 

023370  IF  T8(R)  <*  INVT( 3/INT(T1/1 2) +R)  THEN  JMP753 


Hill  iim»i  b  ■tOTiti  wi  !■  i  iiihii  ii 


023390  FOR  P  *  1  TO  L 
023400  T3(?)  »  T3(P)*C6 


023460  JMP753 J NEXT  R 
023470  Li  »  INT(T1/12+1) 

TZ343U  FOR  R  *  LI  TD^l+L-1 

023490  INVT(IsR)  =  INVT(IsR)  +  T3CR-L1+1) 
023500  INVTCSsR)  =  INVT(8*R)  -  TS(R-LIM) 

023520  IF  I  =  9  THEN  JMP777 
023530  14 (Is J)  *  14 ( Is J)  ♦  12 


s  51  u  J  *  DU  v  Is 

023550  JMP7’7 : DLT  =  10  -  C3 
023560  RETURN 


U2j5Tu ***  ************  **  **  **************  *  *  ********  •*•*  **********  **** 
023580  *  * 
023590  *  #62  -  THIS  SUBROUTINE  ADJUSTS  FLOWS  TO  LIMIT  * 


Lf.tllll 


023610 

023620 


pm-vtn 


023640 

023650 


mill; 


*  CONSISTENT  WITH  REQUIREMENTS  IN  THE  FACE  * 

*  OF  A  FIXED  TOUR  LENGTH  REQUIREMENT.  NFEA'S  * 


i 

*  * 
***********************************************  **********  **** 


illl  I  liMil  I  I  I  >■  I  ■  I*  |i|  I  P|  I 


023670 

023680 


023700 

023710 


023730 
0237  40 


Q6  *  05/C 
C  *  G6*C 


U  £.  ~  UO» 

FOR  K  a  2  TO  12 
T8  (K)  *  T3CO*Q6 


INC  A  I  F. 

12  =  I2*Q6 

IF  J>1  THEN  JMP947 


023760  RETURN 

023770  JMP947:P1  *  PI  ♦  03*(1-Q6> 


J  c  J (  3U 

023790  RETURN 

02  3800  ************************************************************* 


v  ir 

023820  *  #63  -  THIS  SUBROUTINE  IS  USED  TO  CLEAR  THE  SCREEN  * 

023830  *  AND  RESET  FOR  PERIODS  WHEN  THE  PROGRAM  IS  * 


323830  INIT(hEX(20>)P1S<1) 
023890  STR(P1S<1>s1sP5)  *  AS 


B-46 


023930  DISPLAY  AT (10/30) /"EXECUTION  CONTINUES"* 


i  V  HUKNJ.No  UN  S 

023950  ATC14,20> *P1S(1  >*CHC60>* 

323960  AT( 21 / 53) *"MAIN  ITE RATI  ON”* AT ( 21 *69 ) , T5 0/ »IC C *») * 


VCJVfU  OintK  XTcKAI  lUiM  /AI  Ut*OT/ /Dl/rltlP 

323980  RETURN 


u^<*uuu  *  * 
024010  *  *64  -  THIS  SU8RCUTINS  ADJUSTS  THE  CONTINUATION  * 
024020  *  VECTOR  IN  RESPONSE  TO  RETENTION  (R>*  HSR  (A),  * 


M 

024040  * 
024050  * 

POINT  CC). 

* 

* 

— wrurtii  it  m 

irinntmTmniTrnmnmmimmiriTinni 

r  *  *  *►  »  * 

5 

024070  DEFFN' 
024080  GOSUB' 

64<R,A,B*C) 

34 

024100  FOR  P  *  A+1  TO  3 
024110  RO CP)  *  E 


OlHllU  N  C  A  I  r 

024130  E  *  .924*(<C.45*R)/C2*R))**.12) 
024140  FOR  P  *  B ♦I  TO  C 


324160 

024170 


NEXT  P 
R02  *  R 


024190 

024200 


I'HTIl'l 


024220 

◦24230 


024250 

024260 


*  * 


*  ENO  TINE  T1  BASED  ON  ACTUAL  FLOW  VALUES.  * 


DEFFN'  65  C J ) 
FOR  I  *  1  TO  7 


324280 

024290 


024310 

024320 


FOR  N  *  1  TO  7 

IF  STR(T9SCI*J)*3*N*3)  *  "NNN"  THEN  JNP773 


IF  T18CN)  *  0  THEN  JMP778 
CONVERT  STRCT9SCN*J-1>*24*3)  TO  T1 


324340 

◦24350 


& 

024370 

024330 


◦24400 

024410 


014410 

◦24430 

024440 


T18C8)  *  T18C8)  ♦  T18<N)*T1 
JMP778:NEXT  N 


HgN  JM 
T 1  *  T18(3)/02 

CONVERT  STR (T9S(I*J)*1*2)  TO  T2 


JMP779 : NEXT  I 
RETURN 


86 6  -  THIS  SUBROUTINE  IMPLEMENTS  UPWARD  OE  TAILING 


B-47 


024450  * 


WHEN  LOWER  GRADE  REQUIREMENTS  ARE  ALL  MET.  * 
J 2 44 60  *  SOURCE  N/  TCUR  J,  PERSONNEL  ARE  WORKED  AGAINST  * 
024470  *  REQUIREMENT  S*1  .  OUTPUTS  APPEAR  IN  T17<).  * 
02443C  *  * 


0244 vu  *****«■■»***»«****•*»■**»»*■*****■*****■»***■»**•»■»***»»»*»**■*»***■*»* 
024500  DEFFN*  66CN,J,S> 

024510  S10  =  S*1 

O'  273  20  I  r  S  <4  THEN  JM7>  3  C'5'2 - - 

024530  S10  *  3 

024540  JMP3062 :GOSUB*  5S(J*$1C> 

J24550  FOR'  P  ="  T  TO  7 - 

024560  T5CP)  *  0 
024570  03  *  0:04  «  0 

T74~5T0  retrc  rno"! - 

024590  D4  =  04  +  A2(P*Q) 

024600  NEXT  Q 

0776113  FOR-  Q  =  4  TO  7 - 

024620  03  =  03  ♦  A2CPsQ) 

024630  NEXT  Q 

024640  Ir  03  =  0  TWEN  JMPIm 
024650  FOR  Q  *  4  TO  7 

024660  A2(P,3)  *  A2CP,Q)  *  04*  (A2(PsQ) /D3) 

024670  NEXT  0 

024680  JHP1111:A2<P,1>,A2CP,2),A2(o,3>  *  0 
024690  NEXT  P 
“324/00  CdNVERt  STr(T9Scn^j-1)/24T!)  TO  T1 
024710  FOR  K  *  4  TO  7 
024720  T5  (X)  *  A2(N*K)*Q7(N#J*1) 

- 077770  TT5XT  K. - - - 

024740  T5 ( 8)  *  0 
024750  FOR  I  »  4  TO  7 

02776-0  IF'TSCI)  <=  0'THEtr7NP3(JC2 - 

024770  IF  STR(T9$(I*J)#3*N/3)  *  "NNN"  THEN  JMP 3002 
324780  CONVERT  STR CT9S ( I , J ) , 1 , 2)  TO  T2 

027790  COSUB'  '55  CT1/T7,T5'<r>,i;  J) - 

024800  G0SU6'  61 (T1/T2,T5(I)/N/I/J,S10) 

024810  CONVERT  STR(T9$(Isj}s3*Ns3}  TO  02 

- 027370  07'  =  02  +'IUT(C2  +  .5> - 

024830  CONVERT  02  TO  STR(T?$(IrJ)#3*N*3>/PIC(MP) 

024840  IF  S  <  4  THEN  JMP3063 

- 024850  037(3)  *"037(31  +  C - 

◦24860  GOTO  JMP3064 

.  324870  JMP3063 :Q37(S10-1 )  *  337CS10-1)  ♦  C 
024830  JMP  3064  :  T  5 (  I )  *  DLT 
324890  T1 7  ( I )  *  12 

024900  JMP3032 :T5 C 1  +  1 )  «  T5(I*1)  ♦  T5(I) 

- 027 9T0  TT5~XT  I - 

024920  G7(N/J-1>  »  T5(3) 

024930  RETURN 
- J7V970 

024950  *  * 

024960  *  #67  -  THIS  SUBROUTINE  RESETS  ALL  VARIABLES  AND  * 


024970 

*  ' 

VARIABLE  ARRAYS  IN  PREPARATION  FOR  A  NEW 

♦ 

ncmiu 

* 

rrorrrnrn 

* 

024990 

* 

• 

025000 

r*  ♦♦  *♦ 

Tznrnr 

I'HdiUSTi 

025020 

FOR  P  *  1 

TO  7 

325030 

FOR  Q  «  1 

TO  4 

T4TPTTJ - 

025050 

NEXT  2 

325060 

FOR  Q  «  1 

TO  31 

—  1  1  III  1 

lioitau 

025080 

INVT (PsQ) 

*  0 

025090 

NEXT  Q 

OT3T3TT 

NTiiT  P - 

325110 

FOR  0  =  1 

TO  31 

325120 

INVT(3,Q) 

=  INVT ( 3*  Q )  ♦  INVT(9*Q) 

07TTTD 
0251 40 
025150 

TTTTTTTm  *~0 - 

INVTOCQ)  *  INVT  (8sQ) 

NeXT  Q 

IH!I£UU 

Uflfl'BUU*! 

325170 

037  (  0  =  0 

025180 

NeXT  0 

325 1 90 

8 

325200 

OUT  A ( P)  *  0 

025210 

NEXT  P 

■■amj 

UiM4KWU*l 

7 

025230 

FOR  P  *  1  TO 

7 

025240 

I4(P,Q)  «  0 

a2~5?50~QTip;'aj-g-o - : - 

025260  FOR  K  *  1  TO  7 

025270  IF  STR(T9S(PsQ)s3*K*3}  *  "NNN"  THEN  JMP399 


02y280~STKtT75C'P';aV3*R/TJ  t  "010" - 

025290  JMP399;NEXT  k 
025300  NEXT  P 

U7moErn - 

025320  FOR  P  *  1  TO  12 

025330  T5(P)*T6(P)#T7(P)*T3(P)*T15(P)#T17(P)*T18(P)  *  0 
025340  NeXT  P 
025350  Q10  *  0 
025360  RETURN 

112337X1  *4***** **********  *»************•»*****+******•*•*** 


025330  *  * 

025390  *  *68  -  THIS  SUBROUTINE  SHEEPS  UP  REMAINING  INVT  * 

025400  * - AND  FCCwS  TTTT  AP'PRO  PR  FATE'  'R  =  S UTR S'M3NT'  AT - r 

025410  *  ENO  OF  EACH  TOUR  ITERATION.  * 

325420  *  * 


. ***** 

025440  OEFFN*  68CJ*S) 

025450  IF  J  <  7  THEN  JMP3097 

0254oCT  CSnvEST  S  7T1 T  ?  5  ( 77  7  2  4  V  3  5~  TO  T1 - 

025470  GOTO  JMP3093 

025430  JMP 3097: CONVERT  STR ( T9 ! (1 , J ) , 24 , 3 )  TC  T1 


i 

] 


3-49 


025490  FOR  K  *  2  TO  7 

- TZ3TU3  UTJTTVcTrr  STRTT7TTT7J 77 2 4  /  i J  !'0  T7 - 

025510  IF  T 2  >=  T1  TH£N  JH?30e7 
025520  T 1  =  T2 

. - 323  5  3'CT ■UWP'3T3"i7TVcX  T  K - 

025540  JMP3098 :FOR  It  =  1  TO  INTCT1/12) 

025550  IF  INVT(8/(0  =  0  THEN  JMP3C 99  /*  OUT  It  */ 

- JZ33TCT32  =  3~ - 

025570  IF  K  <  10  THEN  SI  =  1 
025530  IF  H  >  9  THEN  SI  =2 

- 3233"9'U“  IF  K  >15  TiTEFTST' =“1 - 

025600  IF  It  >  18  THEN  SI  *  4 
025610  FOR  L  *  2  TO  7 

- 023 6 1 U"  IF- 0UTT751  5  "  <  = ITTWzfr  PTFJUTS - /*  OUT  l"*/ 

025630  IF  DOCL/S1)  <  INVT(3,it)  THEN  JMP3093 
025640  00CL/S1)  =  00CL/S1)  -  INVT(3,K) 

- 323 F5TP  S2-"  -  "  TN  VT  IB,  K7 - 

025660  GOTO  JMP3094 
025670  JMP3093 :S2  =  DOCL,S1) 

- 7756  30"  HUTUTTrT  0 - 

025690  JMP3G94:INVT(8,K)  =  lNVT<3,lt)  -  S2 
025700  INVT (  L,  It)  *  X  N  V  T  (  L,  K  )  ♦  S2 

- 3237 T0~  C BIT VETTT  STW  (T9S  CL~> 3T7~TTZ7 ~T3~  T2 - 

025720  T2  *  INT< (T1 /I  2 )- CT2/24 ) ) 

025730  FOR  N  =  T2  TO  INTCT1/12) 

- an74Cr  T2  wkocnj - - 

025750  NEXT  N 

025760  T7(L)  *  T7(l)  ♦  S2 

- u25770  ^2=0 - 

025780  JMP3095 : IF  INVT(8,K>  *  0  THEN  L  *  7 
025790  NEXT  L 

- 025803  IF  INVTC8/M  «  0  THEN  JNP3C99 - ; - 

025810  IF  23»  <>  "YES"  THEN  JHP3092 

025820  IF  SI  *  4  THEN  SI  *  3  ELSE  SI  *  Si  ♦  1 

- Q25830  FUR  L  «  MU  7 - 

025840  IF  DOCL^SI)  <*  0  THEN  JMP6095  /*  OUT  L  */ 

025850  IF  D0(L*S1>  <  INVT<8,lt>  THEN  JMP6093 

- 025860  D3TU75TT  =  UGCL^STI"-  TVVTT5VO - 

025870  S 2  *  INVTC8,K) 

025380  GOTO  JMP6094 

- 025893  JWP60V3 tS2  «  DOa^STI - 

025900  00(L,S1)  *  0 

025910  JHP6094:INVT(S#lt)  *  lNVT<3,it>  -  S2 

- JZ3973  ITTV  T  ( U7 i  *  IN V  T  Cl/K.7  + — S2 - 

025930  CONVERT  STR (T 9S <L, J ) *  1 , 2 )  TO  T2 
025940  T  2  =  INTC CT1 /I  2 ) - (T 2/24  )  ) 

- 02593U  FOR  N”*”T7  TO-  I WIT TT71  77 - 

025960  S2  *  S2*R0<N) 

025970  NEXT  N 

- 025930'  Tmr"="T  7TTT  - 

025990  S2  *  0 

026000  JMP6C95:IF  INVT(8/K)  *  0  THEN  L  *  7 


026010 


irrueifi 


026030 

026040 


UCBUJU 

026060 

026070 


FiiMiaai 


026090 

026100 


026120 

026130 


0261  SC 
02o1 60 


NEXT  L 


in: 

52  =  INVT (8  s  K) 

INV  T (9  s  X )  *  INVTC9/K)  ♦  S2 


I  vox 

CONVERT  STR(T9S(7sJ)s1s2>  TO  T2 
T2  *  INT((T1/12)-(T2/24>) 


-  It  IU  inll  I  I  /  I 

S2  =  $2*R0(N) 

NEXT  N 


i  i  \  r  /  —  ■ 

JMP3099:NEXT  X 
RETURN 


#69  -  THIS  SUBROUTINE  RESETS  ALL  VARIABLES  AND 


c 

COMMUNITY  RUN 


■•Min'  i 


026180 

026190 


IW.W»I«»TmiItX»ITITTIirT»TT«TirTTlTTTTTXTT»»ITTlIiHHTTTn 


026210  OEFFn*  69 
026220  FOR  I  =  1  TO  7 


026240 

026250 


OOCIxJ)  = 
Q4CIsJ>  = 


026270  NEXT  I 
026280  FOR  J  *  1  TO  31 


026300  FOR  I  *  1  TO  9 
026310  INVT (I# J)  *  0 


r-cwn 


026330 

026340 


r-%vM 


026360 

026370 


026380 

026390 

026400 


NEXT  J 

FOR  J  *  1  TO  4 


UAfVJJ  * 

NEXT  J 

FOR  I  *  1  TO  8 


UTA 
NEXT  I 

FOR  J  *  1  TO  7 


r/TIHliil 


026420 

026430 


644 
026450 
026460 


I4CIsJ)  *  0 
Q7CIsJ>  *  0 


T  9  *  v  I  s 
NEXT  I 
NEXT  J 


rmmi] 


026430  T5(I)sT6CI)sT7(I)sT3CI)sT15Cl)sT17(I)sTl8(I)*0 
026490  NEXT  I 


uii  h  mmi 


026510  STR  <  T9S  < 1 s  2  > / 1 s  2 )  =  "36 
02o5  20  310  =  0 


B-51 

ILi 

.. 

32  65  50 
326560 


*80  -  this  subroutine  computes  the  values  op 


026580  * 

BEING  U0RKE0  ON 

026590  * 

J2&630 

*  **  ** 

026610 

326620 

oeffn 
03  * 

□26630  FOR  P 

026640 

026650 


T5< P)  *  0 
T8CP)  =  0 


026670 

FOR  P  =  1 

TO 

9 

026680 

FOR  C  =  1 

TO 

10 

hKr.T-VHHhtl 


026700 

026710 


NEXT  Q 
NEXT  P 


326730  T3C4)  =  T3C4)  +  T5(P) 
026740  T5CP)  =  T5CP)  ♦  INVTCP,11) 


I'KTAliBi-IUKS  MU] 


I11U1 


►  026760 

NEXT  P 

l  026770 

FOR  P  * 

1  TO  4 

I.1W.M 

♦  T5(PJ - 

1-  326790 

NEXT  P 

026800 

T8C5)  * 

(03/((6*T3(5))/11>) 

02681 O 

"1  TTJ  9 - 

026820 

FOR  Q  * 

12  TO  15 

026830 

T5(P)  * 

T5CP)  ♦  I NVTCP# 0) 

NEXT  Q~ 

I  026850 

NEXT  P 

I  026860 

FOR  P  * 

1  TO  9 

■NIN'NIIWKBMMHSMU] 


026880  NEXT  P 

026890  T8(3)  *  T8C3)  -  T8C4) 


JlUO/il/JI  IU  II 

326910  IF  T1  <  216  THEN  030  =  18  ELSE  D30 
026920  FOR  P  *  1  TO  9 


*  i  o  i 

026940  T5(P>  *  T5CP)  ♦  INVT<P,Q) 
326950  NEXT  Q 


S  INT((T1 /I  2 )+1 > 


•MVUiMtt 


026970 

026930 


i>rr-viri*i 


027000 

027010 


M'l 


327030 

3270«*0 


FOR  P  «  1  TO  9 
T3(2)  «  T  3  <  2)  ♦  T5<P) 


*  IOVOJ  ▼  I 

NEXT  P 

T8C2)  *  T8(2)  -  T3 ( 3)  -  T3(4) 


C3  *  J 

FOR  P  *  1  TO  4 
03  «  03  ♦  T  5  <  P> 


B-52 


PrMCPmMl 


027190 

027200 


T3 (3)  =  D3/T5 (1 ) 
GOSue*  31(5) 


•  rtfi  c:t  «:t  kh  ima  m  w  i 


027220 

027230 


■rmn«i 


027250 

027260 


r((U 

027280 

027290 

077320 

027330 

027340 


027360 

027370 


jo  -jaw 

027390 

027400 


027420 

027430 


027450 

027460 


G0SU8*  31(6) 

T8 (9)  *  D3/T5 (1 ) 


=  1  T 

T8CP)  =  R0UN0(T3(P),0) 
NEXT  P 


run  r  — 

T8CP)  *  R9UNC(T3(P)s2) 

NEXT  P 

GOSUS*  Z7TTCD  - - 

RETURN 

************************************  ******************1 


*  #81  -  THIS  SUBROUTINE  COMPUTES  FLEET  ASSIGNMENT 

*  OPPORTUNITY  GIVEN  THE  TOUR  NUMBER  J.  THE 


4  4.  i  K  E  1  UK^tu  I 


CONVERT  STR(T9$(1sJ)s24/3)  TO  T1  ^ 

CONVERT  STR(T9S(1,J),1,2)  TO  T2 


-  12SU.5  *  14*1/ 

FOR  P  »  INT  <( (T1+T2)/12)+1)  TO  INT  ((T1/12)*1)  STEP  -1 
03  »  03 /R0 ( P) 


027480  T5<1)  *  INVT<3/31) 

027490  FOR  P  *  1  TO  INT< (T1 /I  2  )+1 ) 


MifiliB  Hi  •] 


umiiioi 


027510 

027520 


hf***f>] 


027540 

027550 


027560 

027570 

027530 


NEXT  P 
RETURN 


#82  -  THIS  SUE  ROUT  IN:  PROVIDES  A  DISPLAY  OF  TMS 


UT  DATA  CCMFUTcD  IN 


B-53 


1 


027590  DEFFN'  S2<X$) 

'027600“  P"9~~=  iN  I  U7T-?5~-Fy=?5T/  71 - 

027610  P10  =  INT((79-L=N(XS>)/2) 

027620  03  =  T8(1 )  fT 8 ( 2 ) ♦ T 8 ( 3) * T 8 (4 > 

327621  X75^  R00NCTTINV"l  C37TTT,  JTiX46  =  KUUNU(VI1,0) 

027630  STR (OS# 1/2)  =  STR (DATE#  3*2) 

327640  STR(DS,3,1)  *  "/" 

"327650  S  T  K  (0  i,  4,  <>  J  =“TTirnrXTT7T770 
027660  STR  (05x6/ 1 )  =  "/" 

027670  STR (OS, 7,  2)  =  STR  (OATS, 1,2) 

077 6  80  STV  ni/  1 7  i  )  *  STRTT'I HE7T77T - 

027690  STR(TS,3,1)  =  ":" 

027700  STR(TS,4,2)  *  STR <T IME, 3, 2)  j 

0  2'7  7  1 0  TTHTTH  ETT  2TT7TFT T  CT) - 

027720  STR  (P1S(1  ),1,P5)  =  AS 
327730  STRCPlSd  ),2+P5,2)  =  "IN" 

JZ'7740  S  TR  CPI  S  CT 775^757767  =~  1  TFETTgT  1  ) - 

027750  STR(P1S(1 ),6+P5+P6,9)  =  "COMMON IT  Y" 

027760  ACCEPT  AT(5,P9),FAC(HEX(8C)),P1S(1), 

077770 - AT  C'7,"PT3T,'Ra  CH  h  X T5TTT77T7  A I  (77  541,,  FTC  CHE  XT' 3  CTO'/ - 

0277  30  OS, AT (8, 5 4) /FAC (HEX (SO  >,T$, 

027790  AT  (9/10)  /  "COMMUNITY  P0PULATI0N",AT(9,45)  , "eLEET  OPPORTUNIT 

027800  T", - 

027810  AT (1 0,7), "GRADE", AT  Cl  0,1 6) ," NUMB  ER", 

027820  ATC11, 5), "SENIOR  COR", AT C 1 1 , 1 8) , FAC C HEX C 80 ) , T3 (1 ) , 

J278'3U  VTCCffSAS), - 

027840  ATC12, 5), "JUNIOR  COR", AT d 2 , 1 8) , c AC ( HE  X ( 3C ) ) , T3 (2 ) , 

327850  PIC (#*»<), AT (12, 40), "COMMAND  OP  PO  RT UNIT  Y",  A T  (1  2 , 62 )  , F  AC  (H  =  X  C  EC  )  )  , 

0'778SP  T8C9);PlCCg.ym, - - - 

027870  AT  Cl  3, 5), "LT.  CD R", AT C13, 18), FAC (HEX (80 >,T8 (3) ,?IC (*»**) , 

027880  ATC13,40),"DEPT  HEAD  OP  PORTUNITY",  AT  (1 3 , 62)  ,  FAC  (HE  X  (80  )  ,  TS  ( 8)  , 

3278  90  PTC  TIT.  ATI, - 

027900  AT (14, 5), "LIEUTENANT", AT (14,1 3) ,FAC  (HEX ( 80 ) ,TS ( 4 ) , P I C ( * P 1  * ) , 

027910  AT (16, 5), "TOTAL", AT (16, 13) ,F AC(HEX(8C) ) , 03, PIC  (»«»<)  , 

2  u  a  rn/*Sj/w  *T5T7  ##•«********♦****♦  w  ********  *«  *  *  *  ********** 

027930  **********************-, 

027940  AT (13,50),"ACIP  PROJECTION", 

T7773TJ - riTI  9, 5), "ACCESSIONS - "  ,  AT  ( 1  9",  2  T)  ,  rl  C  l  H  £  X  l  b  C  )  ), - 

027960  X45,PIC(**#*),ATd9,50),"GATS  1 " , AT ( 1 9, 6 0) , 

027970  FAC(HEXC3C)),T3( 5>,PIC(».**>  , 

U777SV - rrC2^,3“0“);"T;ATe  "7",  A  I  (2U,6U),FAC  (HsXTEL)'")  ,  T  5T5T7PTC  (0777 

027990  AT (21 ,5) , "FIRST  TOUR  LENGTH" , AT( 21, 2 5 ) , F AC (HEX ( 8C ) ) , 

028000  X46,PIC(##),AT(21,5C),"GATE  3", AT(21 ,60) , 

T2TUT0 - FAClHeX(SC)  ),'TB  t7>,“VICl  J, - 

028020  AT(23,5),"00  YOU  WISH  TO  CONTINUE  IN-PROCESS  MONITORING?", 

323030  AT(23,55),FAC(hEX(E1)),Z1S,Ch(3),AT(23,81),"(YE$/NO)", 

07BQ5U - rr(71t;'5T,"PRE5'S  eN  TTTT  TO  CONTINUE "GA  T"l  273  35),  "PRESS  PH- 1  T 

323050  0  SUPPRESS  PRINT", KE YS ( 3IN(0) &BIN (1  ) ) ,KSY(P R) 

323060  RETURN 

J71CT70  *"*"* . - 


* 


323030  * 
328090  * 


<83  -  THIS  SUBROUTINE  SETS  UP  THE  NETWORK  MATRIX 


023100  * 


WITH  THE  CORRECT  TOUR  LENGTH  AND  TOUR  ENO 


023150 

023160 


nr-i 


023180 

028190 


I'Mwmi 


023210 
02  3220 


M«l 


023240 

028250 


urcr/.iix: 


FOR  J  *  1  TO  7 
FOR  I  =  1  TO  7 


u  1  =1 

IF  I  >  1  THEN  JMP12 
01  «  01  M 


PKI 


01  *  01  ♦  2 

JMP1 2 : CON VERT  STR(T9$(I/J)#1/2)  TO  T2 


T2  *  T2  ♦  01 

CONVERT  T2  TO  STR<T9$<I*jO/1/2) /PIC  C  #  #) 


028270  CONVERT  T2  TO  STR <T9S< I , J) , 24/ 3 > / PI C ( ** « 
028280  GOTO  JMP10 


JMP11 :D1  =  0:02  =  C:L  =  0  - 

023300  FOR  K  =  1  TO  7 

023310  IF  STRCT9$(I,J),3*I02>  =  ,,NNN**  THEN  JMP112 


I'i  4:6  m  i  :U  u  « • 


IliBiM 


023330 

028340 


01  *  01  ♦  02 
L  *  L  ♦  1 


iM4Vnan:u  i  ra.iiti 


IF  L  a  0  then  jmpic 

01  a  01/L 


023360 

023370 


CMMI'I 


023390 

023400 


uio*  i  u 

023420 

323430 


M(;U  i'HM 


CONVERT  T2  TO  STR <T9S C I , J) , 1 ,2) , P IC <#*> 
CONVERT  01  TO  STR(T9S(IsJ)s24s3)sPIC(***) 


jnr  i w  « , 

NEXT  J 

CONVERT  STR(T9S(7, 71,24,3)  TO  T1 


023450 

023460 


JCJtfU 

023430 

023490 


T2  *  T2  ♦  312  -  T 1 
5TR(T9$(7,7),24,3)  *  "SIZ" 


I  K  V  i 

IF  T2  >  99  THEN  JMP5042 

CONVERT  T 2  TO  STR ( T 9$ (I , J) , 1 , 2 ) , p I C C » #> 


JM 


023510 

328520 


023530 

028540 

023550 


▻Kirin 


028570 

023530 


0*33  1 U 

023600 

023610 


-  this  subroutine  loads  the  continuation  vector 

WITH  ENTRIES  REPRESENTING  A  RETENTION  OF  45%. 
IT  IS  USED  TO  SET  AND  RESET  THE  VECTOR. 


OSFFN*  84 


cit  =  1 

FOR  I  a  1  TO  7 

FOR  J  a  332  TO  932  ♦  NGCI) 


B-55 


028620  RO(J)  =  A50 ( I ) 


J  C.  3  6  JU  net  I  J 

028640  832  =  B32  ♦  N0(I) 
023650  NeXT  I 


itpr-miKCN 


023670  R03  =  5 
028680  R04  *  7 


irjif.vif  :i«i 


023700  RETURN 


***  End  of  Listi-ng  ********************************************************1 
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APPENDI X  C 


DEFAULT  VALUES  FOR  MODEL  VARIABLES 


TABLE  Cl 


GRADE  STRUCTURE  FLEET  SQUADRONS 
AND  FLEET  READINESS  SQUADRON 
(Grade  Matrix  G0) 


FLEET  SQUADRON  FLEET  READINESS  SQUADRON 


Subcommuni ty 

Avia  tors 

NFOs 

Avia  tors 

NFOs 

05 

04 

03 

05 

04 

03 

05 

04 

03 

05 

04 

03 

Light  Attack 

2 

4 

11 

0 

0 

o 

a 

23 

85 

0 

0 

0 

Fighter 

1 

2 

11 

1 

2 

11 

8 

23 

137 

4 

15 

77 

Medium  Attack 

1 

2 

13 

1 

2 

13 

2 

5 

44. 

2 

6 

31 

Early  Warning 

1 

2 

7 

1 

2 

12 

2 

6 

34 

2 

5 

33 

Electronic  Warfare 

1 

2 

3 

1 

3 

14 

i 

3 

38 

1 

3 

26 

Carrier  ASW 

1 

3 

16 

1 

3 

15 

i 

8 

47 

1 

5 

24 

Helicopter  ASW 

2 

4 

14 

0 

0 

o 

4 

17 

57 

0 

0 

0 

Maritime  Patrol 

1 

3 

34 

1 

3 

19 

2 

15 

76 

2 

9 

53 

LAMPS  MK  I 

2 

4 

14 

0 

0 

0 

4 

17 

51 

0 

0 

0 

LAMPS  MK  III 

2 

17 

41 

0 

0 

0 

2 

13 

39 

0 

0 

0 

Electronic  Warfare 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Force  Support  Jet 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Force  Support  Prop 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Force  Support  Helo 

1 

3 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Air  Wing  Staff 

1 

3 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

C-2 


PIPELINE  IDENTIFICATION 
Allocation  Parameters 
(Allocation  Matrix-Al) 


RIO  NFO 


TABLE  C4 


SUPPLEMENTAL  FLEET  REQUIREMENTS 
Grade  Table 

{Auxilliary  Matrix-Aux) 


Subconun  uni  t 


Pi  lots 


NFOs 


f£  NETWORK  DESCRIPTION 

£■  ACTIVITY:  FLETT  SOUADRON  TOURS 


TOUR 

TOUR 

LENGTH 

PRECEDENT  NODES 

FLEET 

FRS 

TRACOM 

RDTfiE 

ALFOAT 

PRODEV 

OTHER 

1 

36 

000 

NNN 

NNN 

Mi 

BUB 

1 

iBUm 

2 

36 

NNN 

NNN 

000 

NNN 

illllSiB 

■Hi 

Ml 

3 

36 

NNN 

000 

000 

000 

NNN 

II 

4 

35 

NNN 

000 

000 

000 

000 

000 

000 

5 

36 

NNN 

000 

000 

000 

000 

000 

000 

6 

24 

000 

000 

000 

000 

000 

000 

coo 

7 

12 

000 

000 

000 

000 

000 

000 

ooc 

NNN :  PRECEDENT  NODE  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


▼ 


C-3 


TA3LE  C-7B 

NETWORK  DESCRIPTION 
ACTIVITY*.  FLEET  READINESS  SQUADRON 


TOUR 

precedent  nodes 

LENGTH 

FLEET 

FRS 

TRACOM 

RDTSE 

ALFOAT 

PRODEV 

OTHER 

00 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

000 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

000 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

OOO 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

OOO 

NNN 

NNN 

'  NNN 

NNN 

NNN 

NNN 

24 

OOO 

NNN 

NNN 

OOO 

OOO 

OOO 

OOO 

24 

OOO 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN :  PRECEDENT  NODE  IS  BARRED 

OOO :  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


C-9 


PRECEDENT  NODES 


LENGTH 

FLEET 

FRS 

TRACOM 

RDTSE 

ALFOAT 

24 

OOO 

NNN 

NNN 

NNN 

NNN 

36 

000 

NNN 

NNN 

NNN 

NNN 

36 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

OOO 

NNN 

NNN 

NNN 

OOO 

36 

OOO 

NNN 

NNN 

'  NNN 

OOO 

24 

OOO 

OOO 

OOO 

OOO 

OOO 

36 

NNN 

NNN 

OOO 

OOO 

OOO 

NNN:  PRECEDENT  NODS  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  BARRED 


C-10 


TABLE  C-7D 

NETWORK  DESCRIPTION 
ACTIVITY:  RESEARCH  AND  DEVELOPMENT 


TOUR 

PRECEDENT  NODES  1 

LENGTH 

FLEET 

FRS 

TRACOM 

RDT&E 

ALFOAT 

PRODEV 

OTHER 

00 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

OOO 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

36 

000 

OOO 

OOO 

NNN 

NNN 

OOO 

NNN 

36 

OOO 

OOO 

NNN 

NNN 

OOO 

OOO 

OOO 

36 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

OOO 

36 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

OOO 

36 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

OOO 

NNN:  PRECEDENT  NODE  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


C-1I 


k 


TABLE  C-7E 

NETWORK  DESCRIPTION 
ACTIVITY:  AFLOAT  ASSIGNMENTS 


TOUR 

TOUR 

LENGTH 

PRECEDENT  NODES 

FLEET 

FRS 

TRACOM 

RDT&E 

ALFOAT 

PRODEV 

1 

00 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

2 

oo 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

3 

24 

NNN 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

4 

24 

NNN 

000 

OOO 

OOO 

NNN 

OOO 

OOO 

5 

24 

NNN 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

6 

24 

NNN 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

7 

24 

000 

OOO 

OOO 

OOO 

NNN 

OOO 

OOO 

NNN:  PRECEDENT  NODE  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


C- 12 


TABLE  C-7F 

NETWORK  DESCRIPTION 
ACTIVITY:  PROFESSIONAL  DEVELOPMENT 


TOUR 

TOUR 

LENGTH 

r  PRECEDENT  NODES 

FLEET 

FRS 

TRACOM 

RDTSE 

ALFOAT 

PRODEV 

OTHER 

1 

00 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

2 

24 

OOO 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

3 

24 

000 

OOO 

OOO 

OOO 

NNN 

NNN 

OOO 

4 

24 

OOO 

OOO 

NNN 

OOO 

OOO 

NNN 

ooo 

5 

12 

OOO 

OOO 

OOO 

OOO 

OOO 

NNN 

OOO 

6 

12 

OOO 

OOO 

OOO 

OOO 

OOO 

NNN 

ooo 

7 

12 

OOO 

OOO 

OOO 

OOO 

OOO 

NNN 

ooo 

NNN :  PRECEDENT  NODE  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 


C- 13 


1 


TABLE  C-7G 

NETWORK  DESCRIPTION 
ACTIVITY :  OTHER 


TOUR 

TOUR 

LENGTH 

PRECEDENT  NODES 

FLEET 

FRS 

TRACOM 

RDT&E 

ALFOAT 

PRODEV 

OTHER 

1 

00 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

2 

36 

000 

NNN 

NNN 

NNN 

NNN 

NNN 

NNN 

3 

36 

OOO 

OOO 

OOO 

OOO 

NNN 

NNN 

NNN 

-* 

36 

OOO 

OOO 

OOO 

NNN 

NNN 

NNN 

NNN 

5 

36 

OOO 

OOO 

OOO 

NNN 

NNN 

OOO 

NNN 

6 

36 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

NNN 

7 

36 

OOO 

OOO 

OOO 

OOO 

OOO 

OOO 

NNN 

NNN :  PRECEDENT  NODE  IS  BARRED 

OOO:  TRANSITION  FROM  PRECEDENT  NODE  IS  PERMITTED 
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